; Disassembly of the file "Z:\home\knoppix\CoBra Project\Software\CPM\CPM 860K analysis\BLOCK#1.bin"
; 
; CPU Type: Z80
; 
; Using the opcode map file "Z:\home\knoppix\CoBra Project\Software\CPM\CPM 860K analysis\BLOCK#1.bin.opmap"
; ; Created with dZ80 2.0
; 
; on Friday, 03 of February 2017 at 11:55 PM
; 
6200 00		DEFB	$00
6201 00		DEFB	$00
6202 00		DEFB	$00
6203 00		DEFB	$00
6204 00		DEFB	$00
6205 00		DEFB	$00
6206 00		DEFB	$00
6207 00		DEFB	$00
6208 00		DEFB	$00
6209 00		DEFB	$00
620A 00		DEFB	$00
620B 00		DEFB	$00
620C 00		DEFB	$00
620D 00		DEFB	$00
620E 00		DEFB	$00
620F 00		DEFB	$00
6210 00		DEFB	$00
6211 00		DEFB	$00
6212 00		DEFB	$00
6213 00		DEFB	$00
6214 00		DEFB	$00
6215 00		DEFB	$00
6216 00		DEFB	$00
6217 00		DEFB	$00
6218 00		DEFB	$00
6219 00		DEFB	$00
621A 00		DEFB	$00
621B 00		DEFB	$00
621C 00		DEFB	$00
621D 00		DEFB	$00
621E 00		DEFB	$00
621F 00		DEFB	$00
6220 00		DEFB	$00
6221 00		DEFB	$00
6222 00		DEFB	$00
6223 00		DEFB	$00
6224 00		DEFB	$00
6225 00		DEFB	$00
6226 00		DEFB	$00
6227 00		DEFB	$00
6228 00		DEFB	$00
6229 00		DEFB	$00
622A 00		DEFB	$00
622B 00		DEFB	$00
622C 00		DEFB	$00
622D 00		DEFB	$00
622E 00		DEFB	$00
622F 00		DEFB	$00
6230 00		DEFB	$00
6231 00		DEFB	$00
6232 00		DEFB	$00
6233 00		DEFB	$00
6234 00		DEFB	$00
6235 00		DEFB	$00
6236 00		DEFB	$00
6237 00		DEFB	$00
6238 00		DEFB	$00
6239 00		DEFB	$00
623A 00		DEFB	$00
623B 00		DEFB	$00
623C 00		DEFB	$00
623D 00		DEFB	$00
623E 00		DEFB	$00
623F 00		DEFB	$00
6240 00		DEFB	$00
6241 00		DEFB	$00
6242 00		DEFB	$00
6243 00		DEFB	$00
6244 00		DEFB	$00
6245 00		DEFB	$00
6246 00		DEFB	$00
6247 00		DEFB	$00
6248 00		DEFB	$00
6249 00		DEFB	$00
624A 00		DEFB	$00
624B 00		DEFB	$00
624C 00		DEFB	$00
624D 00		DEFB	$00
624E 00		DEFB	$00
624F 00		DEFB	$00
6250 00		DEFB	$00
6251 00		DEFB	$00
6252 00		DEFB	$00
6253 00		DEFB	$00
6254 00		DEFB	$00
6255 00		DEFB	$00
6256 00		DEFB	$00
6257 00		DEFB	$00
6258 00		DEFB	$00
6259 00		DEFB	$00
625A 00		DEFB	$00
625B 00		DEFB	$00
625C 00		DEFB	$00
625D 00		DEFB	$00
625E 00		DEFB	$00
625F 00		DEFB	$00
6260 00		DEFB	$00
6261 00		DEFB	$00
6262 00		DEFB	$00
6263 00		DEFB	$00
6264 00		DEFB	$00
6265 00		DEFB	$00
6266 00		DEFB	$00
6267 00		DEFB	$00
6268 00		DEFB	$00
6269 00		DEFB	$00
626A 00		DEFB	$00
626B 00		DEFB	$00
626C 00		DEFB	$00
626D 00		DEFB	$00
626E 00		DEFB	$00
626F 00		DEFB	$00
6270 00		DEFB	$00
6271 00		DEFB	$00
6272 00		DEFB	$00
6273 00		DEFB	$00
6274 00		DEFB	$00
6275 00		DEFB	$00
6276 00		DEFB	$00
6277 00		DEFB	$00
6278 00		DEFB	$00
6279 00		DEFB	$00
627A 00		DEFB	$00
627B 00		DEFB	$00
627C 00		DEFB	$00
627D 00		DEFB	$00
627E 00		DEFB	$00
627F 00		DEFB	$00

6280 01FE00	LD	BC,$00FE
6283 ED78	IN	A,(C)
6285 E63F	AND	$3F
6287 FE3F	CP	$3F
6289 20F5	JR	NZ,$6280
628B C373F8	JP	$F873
628E 2147F6	LD	HL,$F647
6291 3E04	LD	A,$04
6293 AE		XOR	(HL)
6294 77		LD	(HL),A
6295 E604	AND	$04
6297 210801	LD	HL,$0108
629A 2803	JR	Z,$629F
629C 210204	LD	HL,$0402
629F 2248F6	LD	($F648),HL
62A2 3A40F6	LD	A,($F640)
62A5 C364F9	JP	$F964
62A8 3AC068	LD	A,($68C0)
62AB EE18	XOR	$18
62AD 32C068	LD	($68C0),A
62B0 18F0	JR	$62A2
62B2 3A4EF6	LD	A,($F64E)
62B5 FE82	CP	$82
62B7 CA8E62	JP	Z,$628E
62BA FEDE	CP	$DE
62BC 28EA	JR	Z,$62A8
62BE FEE0	CP	$E0
62C0 CC1176	CALL	Z,$7611
62C3 18DD	JR	$62A2
62C5 3A40F6	LD	A,($F640)
62C8 325F78	LD	($785F),A
62CB CBF7	SET	6,A
62CD 3240F6	LD	($F640),A
62D0 FB		EI
62D1 D9		EXX
62D2 08		EX	AF,AF'
62D3 FE0B	CP	$0B
62D5 301C	JR	NC,$62F3
62D7 ED735878	LD	($7858),SP
62DB 315878	LD	SP,$7858
62DE 216078	LD	HL,$7860
62E1 87		ADD	A,A
62E2 5F		LD	E,A
62E3 1600	LD	D,$00
62E5 19		ADD	HL,DE
62E6 5E		LD	E,(HL)
62E7 23		INC	HL
62E8 56		LD	D,(HL)
62E9 D5		PUSH	DE
62EA D9		EXX
62EB E1		POP	HL
62EC CD9C67	CALL	$679C
62EF ED7B5878	LD	SP,($7858)
62F3 D9		EXX
62F4 F3		DI
62F5 3A5F78	LD	A,($785F)
62F8 3240F6	LD	($F640),A
62FB 18A5	JR	$62A2

62FD 00		DEFB	$00
62FE 00		DEFB	$00
62FF 00		DEFB	$00
6300 00		DEFB	$00
6301 00		DEFB	$00
6302 00		DEFB	$00
6303 00		DEFB	$00
6304 00		DEFB	$00
6305 00		DEFB	$00
6306 00		DEFB	$00
6307 00		DEFB	$00
6308 00		DEFB	$00
6309 20		DEFB	$20
630A 20		DEFB	$20
630B 20		DEFB	$20
630C 20		DEFB	$20
630D 00		DEFB	$00
630E 20		DEFB	$20
630F 00		DEFB	$00
6310 00		DEFB	$00
6311 28		DEFB	$28
6312 50		DEFB	$50
6313 00		DEFB	$00
6314 00		DEFB	$00
6315 00		DEFB	$00
6316 00		DEFB	$00
6317 00		DEFB	$00
6318 00		DEFB	$00
6319 50		DEFB	$50
631A F8		DEFB	$F8
631B 50		DEFB	$50
631C 50		DEFB	$50
631D F8		DEFB	$F8
631E 50		DEFB	$50
631F 00		DEFB	$00
6320 20		DEFB	$20
6321 78		DEFB	$78
6322 80		DEFB	$80
6323 70		DEFB	$70
6324 08		DEFB	$08
6325 F0		DEFB	$F0
6326 20		DEFB	$20
6327 00		DEFB	$00
6328 00		DEFB	$00
6329 C8		DEFB	$C8
632A D0		DEFB	$D0
632B 20		DEFB	$20
632C 40		DEFB	$40
632D 98		DEFB	$98
632E 98		DEFB	$98
632F 00		DEFB	$00
6330 00		DEFB	$00
6331 20		DEFB	$20
6332 50		DEFB	$50
6333 20		DEFB	$20
6334 58		DEFB	$58
6335 90		DEFB	$90
6336 68		DEFB	$68
6337 00		DEFB	$00
6338 00		DEFB	$00
6339 10		DEFB	$10
633A 20		DEFB	$20
633B 00		DEFB	$00
633C 00		DEFB	$00
633D 00		DEFB	$00
633E 00		DEFB	$00
633F 00		DEFB	$00
6340 00		DEFB	$00
6341 10		DEFB	$10
6342 20		DEFB	$20
6343 20		DEFB	$20
6344 20		DEFB	$20
6345 20		DEFB	$20
6346 10		DEFB	$10
6347 00		DEFB	$00
6348 00		DEFB	$00
6349 40		DEFB	$40
634A 20		DEFB	$20
634B 20		DEFB	$20
634C 20		DEFB	$20
634D 20		DEFB	$20
634E 40		DEFB	$40
634F 00		DEFB	$00
6350 00		DEFB	$00
6351 50		DEFB	$50
6352 20		DEFB	$20
6353 F8		DEFB	$F8
6354 20		DEFB	$20
6355 50		DEFB	$50
6356 00		DEFB	$00
6357 00		DEFB	$00
6358 00		DEFB	$00
6359 20		DEFB	$20
635A 20		DEFB	$20
635B F8		DEFB	$F8
635C 20		DEFB	$20
635D 20		DEFB	$20
635E 00		DEFB	$00
635F 00		DEFB	$00
6360 00		DEFB	$00
6361 00		DEFB	$00
6362 00		DEFB	$00
6363 00		DEFB	$00
6364 00		DEFB	$00
6365 20		DEFB	$20
6366 40		DEFB	$40
6367 00		DEFB	$00
6368 00		DEFB	$00
6369 00		DEFB	$00
636A 00		DEFB	$00
636B F8		DEFB	$F8
636C 00		DEFB	$00
636D 00		DEFB	$00
636E 00		DEFB	$00
636F 00		DEFB	$00
6370 00		DEFB	$00
6371 00		DEFB	$00
6372 00		DEFB	$00
6373 00		DEFB	$00
6374 00		DEFB	$00
6375 00		DEFB	$00
6376 20		DEFB	$20
6377 00		DEFB	$00
6378 00		DEFB	$00
6379 08		DEFB	$08
637A 08		DEFB	$08
637B 10		DEFB	$10
637C 20		DEFB	$20
637D 40		DEFB	$40
637E 80		DEFB	$80
637F 80		DEFB	$80
6380 00		DEFB	$00
6381 70		DEFB	$70
6382 88		DEFB	$88
6383 98		DEFB	$98
6384 A8		DEFB	$A8
6385 C8		DEFB	$C8
6386 70		DEFB	$70
6387 00		DEFB	$00
6388 00		DEFB	$00
6389 20		DEFB	$20
638A 60		DEFB	$60
638B 20		DEFB	$20
638C 20		DEFB	$20
638D 20		DEFB	$20
638E 70		DEFB	$70
638F 00		DEFB	$00
6390 00		DEFB	$00
6391 70		DEFB	$70
6392 88		DEFB	$88
6393 08		DEFB	$08
6394 70		DEFB	$70
6395 80		DEFB	$80
6396 F8		DEFB	$F8
6397 00		DEFB	$00
6398 00		DEFB	$00
6399 70		DEFB	$70
639A 08		DEFB	$08
639B 30		DEFB	$30
639C 08		DEFB	$08
639D 88		DEFB	$88
639E 70		DEFB	$70
639F 00		DEFB	$00
63A0 00		DEFB	$00
63A1 10		DEFB	$10
63A2 30		DEFB	$30
63A3 50		DEFB	$50
63A4 90		DEFB	$90
63A5 F8		DEFB	$F8
63A6 10		DEFB	$10
63A7 00		DEFB	$00
63A8 00		DEFB	$00
63A9 F8		DEFB	$F8
63AA 80		DEFB	$80
63AB F0		DEFB	$F0
63AC 08		DEFB	$08
63AD 88		DEFB	$88
63AE 70		DEFB	$70
63AF 00		DEFB	$00
63B0 00		DEFB	$00
63B1 70		DEFB	$70
63B2 80		DEFB	$80
63B3 F0		DEFB	$F0
63B4 88		DEFB	$88
63B5 88		DEFB	$88
63B6 70		DEFB	$70
63B7 00		DEFB	$00
63B8 00		DEFB	$00
63B9 F8		DEFB	$F8
63BA 08		DEFB	$08
63BB 10		DEFB	$10
63BC 20		DEFB	$20
63BD 40		DEFB	$40
63BE 40		DEFB	$40
63BF 00		DEFB	$00
63C0 00		DEFB	$00
63C1 70		DEFB	$70
63C2 88		DEFB	$88
63C3 70		DEFB	$70
63C4 88		DEFB	$88
63C5 88		DEFB	$88
63C6 70		DEFB	$70
63C7 00		DEFB	$00
63C8 00		DEFB	$00
63C9 70		DEFB	$70
63CA 88		DEFB	$88
63CB 88		DEFB	$88
63CC 78		DEFB	$78
63CD 08		DEFB	$08
63CE 70		DEFB	$70
63CF 00		DEFB	$00
63D0 00		DEFB	$00
63D1 00		DEFB	$00
63D2 00		DEFB	$00
63D3 20		DEFB	$20
63D4 00		DEFB	$00
63D5 20		DEFB	$20
63D6 00		DEFB	$00
63D7 00		DEFB	$00
63D8 00		DEFB	$00
63D9 00		DEFB	$00
63DA 00		DEFB	$00
63DB 20		DEFB	$20
63DC 00		DEFB	$00
63DD 20		DEFB	$20
63DE 40		DEFB	$40
63DF 00		DEFB	$00
63E0 00		DEFB	$00
63E1 20		DEFB	$20
63E2 40		DEFB	$40
63E3 80		DEFB	$80
63E4 40		DEFB	$40
63E5 20		DEFB	$20
63E6 00		DEFB	$00
63E7 00		DEFB	$00
63E8 00		DEFB	$00
63E9 00		DEFB	$00
63EA F8		DEFB	$F8
63EB 00		DEFB	$00
63EC F8		DEFB	$F8
63ED 00		DEFB	$00
63EE 00		DEFB	$00
63EF 00		DEFB	$00
63F0 00		DEFB	$00
63F1 20		DEFB	$20
63F2 10		DEFB	$10
63F3 08		DEFB	$08
63F4 10		DEFB	$10
63F5 20		DEFB	$20
63F6 00		DEFB	$00
63F7 00		DEFB	$00
63F8 00		DEFB	$00
63F9 70		DEFB	$70
63FA 88		DEFB	$88
63FB 10		DEFB	$10
63FC 20		DEFB	$20
63FD 00		DEFB	$00
63FE 20		DEFB	$20
63FF 00		DEFB	$00
6400 00		DEFB	$00
6401 70		DEFB	$70
6402 98		DEFB	$98
6403 A8		DEFB	$A8
6404 B8		DEFB	$B8
6405 80		DEFB	$80
6406 78		DEFB	$78
6407 00		DEFB	$00
6408 00		DEFB	$00
6409 70		DEFB	$70
640A 88		DEFB	$88
640B 88		DEFB	$88
640C F8		DEFB	$F8
640D 88		DEFB	$88
640E 88		DEFB	$88
640F 00		DEFB	$00
6410 00		DEFB	$00
6411 F0		DEFB	$F0
6412 88		DEFB	$88
6413 F0		DEFB	$F0
6414 88		DEFB	$88
6415 88		DEFB	$88
6416 F0		DEFB	$F0
6417 00		DEFB	$00
6418 00		DEFB	$00
6419 70		DEFB	$70
641A 88		DEFB	$88
641B 80		DEFB	$80
641C 80		DEFB	$80
641D 88		DEFB	$88
641E 70		DEFB	$70
641F 00		DEFB	$00
6420 00		DEFB	$00
6421 F0		DEFB	$F0
6422 88		DEFB	$88
6423 88		DEFB	$88
6424 88		DEFB	$88
6425 88		DEFB	$88
6426 F0		DEFB	$F0
6427 00		DEFB	$00
6428 00		DEFB	$00
6429 F8		DEFB	$F8
642A 80		DEFB	$80
642B F0		DEFB	$F0
642C 80		DEFB	$80
642D 80		DEFB	$80
642E F8		DEFB	$F8
642F 00		DEFB	$00
6430 00		DEFB	$00
6431 F8		DEFB	$F8
6432 80		DEFB	$80
6433 F0		DEFB	$F0
6434 80		DEFB	$80
6435 80		DEFB	$80
6436 80		DEFB	$80
6437 00		DEFB	$00
6438 00		DEFB	$00
6439 70		DEFB	$70
643A 88		DEFB	$88
643B 80		DEFB	$80
643C B8		DEFB	$B8
643D 88		DEFB	$88
643E 70		DEFB	$70
643F 00		DEFB	$00
6440 00		DEFB	$00
6441 88		DEFB	$88
6442 88		DEFB	$88
6443 F8		DEFB	$F8
6444 88		DEFB	$88
6445 88		DEFB	$88
6446 88		DEFB	$88
6447 00		DEFB	$00
6448 00		DEFB	$00
6449 70		DEFB	$70
644A 20		DEFB	$20
644B 20		DEFB	$20
644C 20		DEFB	$20
644D 20		DEFB	$20
644E 70		DEFB	$70
644F 00		DEFB	$00
6450 00		DEFB	$00
6451 08		DEFB	$08
6452 08		DEFB	$08
6453 08		DEFB	$08
6454 08		DEFB	$08
6455 88		DEFB	$88
6456 70		DEFB	$70
6457 00		DEFB	$00
6458 00		DEFB	$00
6459 90		DEFB	$90
645A A0		DEFB	$A0
645B C0		DEFB	$C0
645C A0		DEFB	$A0
645D 90		DEFB	$90
645E 88		DEFB	$88
645F 00		DEFB	$00
6460 00		DEFB	$00
6461 80		DEFB	$80
6462 80		DEFB	$80
6463 80		DEFB	$80
6464 80		DEFB	$80
6465 80		DEFB	$80
6466 F8		DEFB	$F8
6467 00		DEFB	$00
6468 00		DEFB	$00
6469 88		DEFB	$88
646A D8		DEFB	$D8
646B A8		DEFB	$A8
646C 88		DEFB	$88
646D 88		DEFB	$88
646E 88		DEFB	$88
646F 00		DEFB	$00
6470 00		DEFB	$00
6471 88		DEFB	$88
6472 88		DEFB	$88
6473 C8		DEFB	$C8
6474 A8		DEFB	$A8
6475 98		DEFB	$98
6476 88		DEFB	$88
6477 00		DEFB	$00
6478 00		DEFB	$00
6479 70		DEFB	$70
647A 88		DEFB	$88
647B 88		DEFB	$88
647C 88		DEFB	$88
647D 88		DEFB	$88
647E 70		DEFB	$70
647F 00		DEFB	$00
6480 00		DEFB	$00
6481 F0		DEFB	$F0
6482 88		DEFB	$88
6483 88		DEFB	$88
6484 F0		DEFB	$F0
6485 80		DEFB	$80
6486 80		DEFB	$80
6487 00		DEFB	$00
6488 00		DEFB	$00
6489 70		DEFB	$70
648A 88		DEFB	$88
648B 88		DEFB	$88
648C A8		DEFB	$A8
648D 90		DEFB	$90
648E 68		DEFB	$68
648F 00		DEFB	$00
6490 00		DEFB	$00
6491 F0		DEFB	$F0
6492 88		DEFB	$88
6493 88		DEFB	$88
6494 F0		DEFB	$F0
6495 90		DEFB	$90
6496 88		DEFB	$88
6497 00		DEFB	$00
6498 00		DEFB	$00
6499 70		DEFB	$70
649A 80		DEFB	$80
649B 70		DEFB	$70
649C 08		DEFB	$08
649D 08		DEFB	$08
649E F0		DEFB	$F0
649F 00		DEFB	$00
64A0 00		DEFB	$00
64A1 F8		DEFB	$F8
64A2 20		DEFB	$20
64A3 20		DEFB	$20
64A4 20		DEFB	$20
64A5 20		DEFB	$20
64A6 20		DEFB	$20
64A7 00		DEFB	$00
64A8 00		DEFB	$00
64A9 88		DEFB	$88
64AA 88		DEFB	$88
64AB 88		DEFB	$88
64AC 88		DEFB	$88
64AD 88		DEFB	$88
64AE 70		DEFB	$70
64AF 00		DEFB	$00
64B0 00		DEFB	$00
64B1 88		DEFB	$88
64B2 88		DEFB	$88
64B3 88		DEFB	$88
64B4 88		DEFB	$88
64B5 50		DEFB	$50
64B6 20		DEFB	$20
64B7 00		DEFB	$00
64B8 00		DEFB	$00
64B9 88		DEFB	$88
64BA 88		DEFB	$88
64BB A8		DEFB	$A8
64BC A8		DEFB	$A8
64BD D8		DEFB	$D8
64BE 88		DEFB	$88
64BF 00		DEFB	$00
64C0 00		DEFB	$00
64C1 88		DEFB	$88
64C2 50		DEFB	$50
64C3 20		DEFB	$20
64C4 20		DEFB	$20
64C5 50		DEFB	$50
64C6 88		DEFB	$88
64C7 00		DEFB	$00
64C8 00		DEFB	$00
64C9 88		DEFB	$88
64CA 88		DEFB	$88
64CB 50		DEFB	$50
64CC 20		DEFB	$20
64CD 20		DEFB	$20
64CE 20		DEFB	$20
64CF 00		DEFB	$00
64D0 00		DEFB	$00
64D1 F8		DEFB	$F8
64D2 10		DEFB	$10
64D3 20		DEFB	$20
64D4 40		DEFB	$40
64D5 80		DEFB	$80
64D6 F8		DEFB	$F8
64D7 00		DEFB	$00
64D8 00		DEFB	$00
64D9 70		DEFB	$70
64DA 40		DEFB	$40
64DB 40		DEFB	$40
64DC 40		DEFB	$40
64DD 40		DEFB	$40
64DE 70		DEFB	$70
64DF 00		DEFB	$00
64E0 00		DEFB	$00
64E1 80		DEFB	$80
64E2 80		DEFB	$80
64E3 40		DEFB	$40
64E4 20		DEFB	$20
64E5 10		DEFB	$10
64E6 08		DEFB	$08
64E7 08		DEFB	$08
64E8 00		DEFB	$00
64E9 70		DEFB	$70
64EA 10		DEFB	$10
64EB 10		DEFB	$10
64EC 10		DEFB	$10
64ED 10		DEFB	$10
64EE 70		DEFB	$70
64EF 00		DEFB	$00
64F0 00		DEFB	$00
64F1 20		DEFB	$20
64F2 70		DEFB	$70
64F3 A8		DEFB	$A8
64F4 20		DEFB	$20
64F5 20		DEFB	$20
64F6 20		DEFB	$20
64F7 00		DEFB	$00
64F8 00		DEFB	$00
64F9 00		DEFB	$00
64FA 00		DEFB	$00
64FB 00		DEFB	$00
64FC 00		DEFB	$00
64FD 00		DEFB	$00
64FE 00		DEFB	$00
64FF FC		DEFB	$FC
6500 00		DEFB	$00
6501 60		DEFB	$60
6502 90		DEFB	$90
6503 80		DEFB	$80
6504 E0		DEFB	$E0
6505 80		DEFB	$80
6506 F0		DEFB	$F0
6507 00		DEFB	$00
6508 00		DEFB	$00
6509 00		DEFB	$00
650A 70		DEFB	$70
650B 08		DEFB	$08
650C 78		DEFB	$78
650D 88		DEFB	$88
650E 78		DEFB	$78
650F 00		DEFB	$00
6510 00		DEFB	$00
6511 80		DEFB	$80
6512 80		DEFB	$80
6513 F0		DEFB	$F0
6514 88		DEFB	$88
6515 88		DEFB	$88
6516 F0		DEFB	$F0
6517 00		DEFB	$00
6518 00		DEFB	$00
6519 00		DEFB	$00
651A 70		DEFB	$70
651B 88		DEFB	$88
651C 80		DEFB	$80
651D 88		DEFB	$88
651E 70		DEFB	$70
651F 00		DEFB	$00
6520 00		DEFB	$00
6521 08		DEFB	$08
6522 08		DEFB	$08
6523 78		DEFB	$78
6524 88		DEFB	$88
6525 88		DEFB	$88
6526 78		DEFB	$78
6527 00		DEFB	$00
6528 00		DEFB	$00
6529 00		DEFB	$00
652A 70		DEFB	$70
652B 88		DEFB	$88
652C F0		DEFB	$F0
652D 80		DEFB	$80
652E 78		DEFB	$78
652F 00		DEFB	$00
6530 00		DEFB	$00
6531 30		DEFB	$30
6532 40		DEFB	$40
6533 60		DEFB	$60
6534 40		DEFB	$40
6535 40		DEFB	$40
6536 40		DEFB	$40
6537 00		DEFB	$00
6538 00		DEFB	$00
6539 00		DEFB	$00
653A 68		DEFB	$68
653B 98		DEFB	$98
653C 88		DEFB	$88
653D 78		DEFB	$78
653E 08		DEFB	$08
653F 70		DEFB	$70
6540 00		DEFB	$00
6541 80		DEFB	$80
6542 80		DEFB	$80
6543 F0		DEFB	$F0
6544 88		DEFB	$88
6545 88		DEFB	$88
6546 88		DEFB	$88
6547 00		DEFB	$00
6548 00		DEFB	$00
6549 20		DEFB	$20
654A 00		DEFB	$00
654B 60		DEFB	$60
654C 20		DEFB	$20
654D 20		DEFB	$20
654E 70		DEFB	$70
654F 00		DEFB	$00
6550 00		DEFB	$00
6551 10		DEFB	$10
6552 00		DEFB	$00
6553 10		DEFB	$10
6554 10		DEFB	$10
6555 10		DEFB	$10
6556 10		DEFB	$10
6557 60		DEFB	$60
6558 00		DEFB	$00
6559 80		DEFB	$80
655A 80		DEFB	$80
655B A0		DEFB	$A0
655C C0		DEFB	$C0
655D A0		DEFB	$A0
655E 90		DEFB	$90
655F 00		DEFB	$00
6560 00		DEFB	$00
6561 40		DEFB	$40
6562 40		DEFB	$40
6563 40		DEFB	$40
6564 40		DEFB	$40
6565 40		DEFB	$40
6566 30		DEFB	$30
6567 00		DEFB	$00
6568 00		DEFB	$00
6569 00		DEFB	$00
656A 50		DEFB	$50
656B A8		DEFB	$A8
656C A8		DEFB	$A8
656D A8		DEFB	$A8
656E A8		DEFB	$A8
656F 00		DEFB	$00
6570 00		DEFB	$00
6571 00		DEFB	$00
6572 B0		DEFB	$B0
6573 C8		DEFB	$C8
6574 88		DEFB	$88
6575 88		DEFB	$88
6576 88		DEFB	$88
6577 00		DEFB	$00
6578 00		DEFB	$00
6579 00		DEFB	$00
657A 70		DEFB	$70
657B 88		DEFB	$88
657C 88		DEFB	$88
657D 88		DEFB	$88
657E 70		DEFB	$70
657F 00		DEFB	$00
6580 00		DEFB	$00
6581 00		DEFB	$00
6582 F0		DEFB	$F0
6583 88		DEFB	$88
6584 88		DEFB	$88
6585 F0		DEFB	$F0
6586 80		DEFB	$80
6587 80		DEFB	$80
6588 00		DEFB	$00
6589 00		DEFB	$00
658A 70		DEFB	$70
658B 88		DEFB	$88
658C 88		DEFB	$88
658D 78		DEFB	$78
658E 08		DEFB	$08
658F 08		DEFB	$08
6590 00		DEFB	$00
6591 00		DEFB	$00
6592 50		DEFB	$50
6593 68		DEFB	$68
6594 40		DEFB	$40
6595 40		DEFB	$40
6596 40		DEFB	$40
6597 00		DEFB	$00
6598 00		DEFB	$00
6599 00		DEFB	$00
659A 70		DEFB	$70
659B 80		DEFB	$80
659C 70		DEFB	$70
659D 08		DEFB	$08
659E F0		DEFB	$F0
659F 00		DEFB	$00
65A0 00		DEFB	$00
65A1 20		DEFB	$20
65A2 70		DEFB	$70
65A3 20		DEFB	$20
65A4 20		DEFB	$20
65A5 28		DEFB	$28
65A6 10		DEFB	$10
65A7 00		DEFB	$00
65A8 00		DEFB	$00
65A9 00		DEFB	$00
65AA 88		DEFB	$88
65AB 88		DEFB	$88
65AC 88		DEFB	$88
65AD 88		DEFB	$88
65AE 70		DEFB	$70
65AF 00		DEFB	$00
65B0 00		DEFB	$00
65B1 00		DEFB	$00
65B2 88		DEFB	$88
65B3 88		DEFB	$88
65B4 88		DEFB	$88
65B5 50		DEFB	$50
65B6 20		DEFB	$20
65B7 00		DEFB	$00
65B8 00		DEFB	$00
65B9 00		DEFB	$00
65BA 88		DEFB	$88
65BB A8		DEFB	$A8
65BC A8		DEFB	$A8
65BD A8		DEFB	$A8
65BE 50		DEFB	$50
65BF 00		DEFB	$00
65C0 00		DEFB	$00
65C1 00		DEFB	$00
65C2 88		DEFB	$88
65C3 50		DEFB	$50
65C4 20		DEFB	$20
65C5 50		DEFB	$50
65C6 88		DEFB	$88
65C7 00		DEFB	$00
65C8 00		DEFB	$00
65C9 00		DEFB	$00
65CA 88		DEFB	$88
65CB 88		DEFB	$88
65CC 88		DEFB	$88
65CD 78		DEFB	$78
65CE 08		DEFB	$08
65CF 70		DEFB	$70
65D0 00		DEFB	$00
65D1 00		DEFB	$00
65D2 F8		DEFB	$F8
65D3 10		DEFB	$10
65D4 20		DEFB	$20
65D5 40		DEFB	$40
65D6 F8		DEFB	$F8
65D7 00		DEFB	$00
65D8 00		DEFB	$00
65D9 30		DEFB	$30
65DA 20		DEFB	$20
65DB 40		DEFB	$40
65DC 20		DEFB	$20
65DD 20		DEFB	$20
65DE 30		DEFB	$30
65DF 00		DEFB	$00
65E0 00		DEFB	$00
65E1 20		DEFB	$20
65E2 20		DEFB	$20
65E3 20		DEFB	$20
65E4 00		DEFB	$00
65E5 20		DEFB	$20
65E6 20		DEFB	$20
65E7 20		DEFB	$20
65E8 00		DEFB	$00
65E9 60		DEFB	$60
65EA 20		DEFB	$20
65EB 10		DEFB	$10
65EC 20		DEFB	$20
65ED 20		DEFB	$20
65EE 60		DEFB	$60
65EF 00		DEFB	$00
65F0 00		DEFB	$00
65F1 00		DEFB	$00
65F2 00		DEFB	$00
65F3 40		DEFB	$40
65F4 A8		DEFB	$A8
65F5 10		DEFB	$10
65F6 00		DEFB	$00
65F7 00		DEFB	$00
65F8 78		DEFB	$78
65F9 84		DEFB	$84
65FA B4		DEFB	$B4
65FB A4		DEFB	$A4
65FC A4		DEFB	$A4
65FD B4		DEFB	$B4
65FE 84		DEFB	$84
65FF 78		DEFB	$78
6600 00		DEFB	$00
6601 5B		DEFB	$5B
6602 00		DEFB	$00
6603 5B		DEFB	$5B
6604 00		DEFB	$00
6605 00		DEFB	$00
6606 00		DEFB	$00
6607 00		DEFB	$00
6608 00		DEFB	$00
6609 00		DEFB	$00
660A 00		DEFB	$00
660B 00		DEFB	$00
660C 00		DEFB	$00
660D 00		DEFB	$00
660E 00		DEFB	$00
660F 00		DEFB	$00
6610 00		DEFB	$00
6611 00		DEFB	$00
6612 00		DEFB	$00
6613 00		DEFB	$00
6614 00		DEFB	$00
6615 00		DEFB	$00
6616 00		DEFB	$00
6617 00		DEFB	$00
6618 00		DEFB	$00
6619 00		DEFB	$00
661A 00		DEFB	$00
661B 00		DEFB	$00
661C 00		DEFB	$00
661D 00		DEFB	$00
661E 00		DEFB	$00
661F 00		DEFB	$00

6620 CD3566	CALL	$6635
6623 CD1BF7	CALL	$F71B
6626 B7		OR	A
6627 28F7	JR	Z,$6620
6629 CDB868	CALL	$68B8
662C 3A4EF6	LD	A,($F64E)
662F 214CF6	LD	HL,$F64C
6632 3600	LD	(HL),$00
6634 C9		RET

6635 2147F6	LD	HL,$F647
6638 7E		LD	A,(HL)
6639 CB86	RES	0,(HL)
663B CB8E	RES	1,(HL)
663D 2150F6	LD	HL,$F650
6640 CB4F	BIT	1,A
6642 CA7073	JP	Z,$7370
6645 CB47	BIT	0,A
6647 3E08	LD	A,$08
6649 2007	JR	NZ,$6652
664B A6		AND	(HL)
664C 2008	JR	NZ,$6656
664E 3E10	LD	A,$10
6650 1804	JR	$6656
6652 A6		AND	(HL)
6653 07		RLCA
6654 EE08	XOR	$08
6656 AE		XOR	(HL)
6657 77		LD	(HL),A
6658 21FF57	LD	HL,$57FF
665B 11FE57	LD	DE,$57FE
665E CD0975	CALL	$7509
6661 00		NOP
6662 00		NOP
6663 00		NOP
6664 C3936B	JP	$6B93
6667 79		LD	A,C
6668 321166	LD	($6611),A
666B 211066	LD	HL,$6610
666E CB6E	BIT	5,(HL)
6670 C2D568	JP	NZ,$68D5
6673 CB76	BIT	6,(HL)
6675 C27C67	JP	NZ,$677C
6678 FE7F	CP	$7F
667A CA8567	JP	Z,$6785
667D E67F	AND	$7F
667F FE20	CP	$20
6681 DA8567	JP	C,$6785
6684 4F		LD	C,A
6685 7E		LD	A,(HL)
6686 E680	AND	$80
6688 B1		OR	C
6689 2A0866	LD	HL,($6608)
668C BE		CP	(HL)
668D CA3769	JP	Z,$6937
6690 77		LD	(HL),A
6691 214AF6	LD	HL,$F64A
6694 3600	LD	(HL),$00
6696 CDA466	CALL	$66A4
6699 214AF6	LD	HL,$F64A
669C 36FF	LD	(HL),$FF
669E 23		INC	HL
669F 3601	LD	(HL),$01
66A1 C33769	JP	$6937
66A4 47		LD	B,A
66A5 2150F6	LD	HL,$F650
66A8 3A0E66	LD	A,($660E)
66AB CB5E	BIT	3,(HL)
66AD 2006	JR	NZ,$66B5
66AF CB66	BIT	4,(HL)
66B1 2804	JR	Z,$66B7
66B3 D614	SUB	$14
66B5 D614	SUB	$14
66B7 FE28	CP	$28
66B9 D0		RET	NC

66BA E63C	AND	$3C
66BC 5F		LD	E,A
66BD 83		ADD	A,E
66BE 83		ADD	A,E
66BF CB3F	SRL	A
66C1 CB3F	SRL	A
66C3 5F		LD	E,A
66C4 1640	LD	D,$40
66C6 211566	LD	HL,$6615
66C9 3600	LD	(HL),$00
66CB 78		LD	A,B
66CC CB7F	BIT	7,A
66CE 2802	JR	Z,$66D2
66D0 36FC	LD	(HL),$FC
66D2 E67F	AND	$7F
66D4 D620	SUB	$20
66D6 6F		LD	L,A
66D7 2600	LD	H,$00
66D9 29		ADD	HL,HL
66DA 29		ADD	HL,HL
66DB 29		ADD	HL,HL
66DC 010063	LD	BC,$6300
66DF 09		ADD	HL,BC
66E0 3A0F66	LD	A,($660F)
66E3 0F		RRCA
66E4 0F		RRCA
66E5 0F		RRCA
66E6 E6E0	AND	$E0
66E8 83		ADD	A,E
66E9 5F		LD	E,A
66EA 3A0F66	LD	A,($660F)
66ED E618	AND	$18
66EF B2		OR	D
66F0 57		LD	D,A
66F1 C3F466	JP	$66F4
66F4 3A50F6	LD	A,($F650)
66F7 CB5F	BIT	3,A
66F9 2005	JR	NZ,$6700
66FB CB67	BIT	4,A
66FD 2002	JR	NZ,$6701
66FF 13		INC	DE
6700 13		INC	DE
6701 0608	LD	B,$08
6703 3A0E66	LD	A,($660E)
6706 E603	AND	$03
6708 281A	JR	Z,$6724
670A 3D		DEC	A
670B 2827	JR	Z,$6734
670D 13		INC	DE
670E 3D		DEC	A
670F 2844	JR	Z,$6755
6711 13		INC	DE
6712 4E		LD	C,(HL)
6713 23		INC	HL
6714 3A1566	LD	A,($6615)
6717 A9		XOR	C
6718 1F		RRA
6719 1F		RRA
671A 4F		LD	C,A
671B 1A		LD	A,(DE)
671C E6C0	AND	$C0
671E B1		OR	C
671F 12		LD	(DE),A
6720 14		INC	D
6721 10EF	DJNZ	$6712
6723 C9		RET

6724 4E		LD	C,(HL)
6725 23		INC	HL
6726 3A1566	LD	A,($6615)
6729 A9		XOR	C
672A 4F		LD	C,A
672B 1A		LD	A,(DE)
672C E603	AND	$03
672E B1		OR	C
672F 12		LD	(DE),A
6730 14		INC	D
6731 10F1	DJNZ	$6724
6733 C9		RET

6734 4E		LD	C,(HL)
6735 23		INC	HL
6736 3A1566	LD	A,($6615)
6739 A9		XOR	C
673A C5		PUSH	BC
673B 0600	LD	B,$00
673D 17		RLA
673E CB10	RL	B
6740 17		RLA
6741 CB10	RL	B
6743 4F		LD	C,A
6744 1A		LD	A,(DE)
6745 E6FC	AND	$FC
6747 B0		OR	B
6748 12		LD	(DE),A
6749 13		INC	DE
674A 1A		LD	A,(DE)
674B E60F	AND	$0F
674D B1		OR	C
674E 12		LD	(DE),A
674F 1B		DEC	DE
6750 14		INC	D
6751 C1		POP	BC
6752 10E0	DJNZ	$6734
6754 C9		RET

6755 4E		LD	C,(HL)
6756 23		INC	HL
6757 3A1566	LD	A,($6615)
675A A9		XOR	C
675B C5		PUSH	BC
675C 0600	LD	B,$00
675E 17		RLA
675F CB10	RL	B
6761 17		RLA
6762 CB10	RL	B
6764 17		RLA
6765 CB10	RL	B
6767 17		RLA
6768 CB10	RL	B
676A 4F		LD	C,A
676B 1A		LD	A,(DE)
676C E6F0	AND	$F0
676E B0		OR	B
676F 12		LD	(DE),A
6770 13		INC	DE
6771 1A		LD	A,(DE)
6772 E63F	AND	$3F
6774 B1		OR	C
6775 12		LD	(DE),A
6776 1B		DEC	DE
6777 14		INC	D
6778 C1		POP	BC
6779 10DA	DJNZ	$6755
677B C9		RET

677C 219D67	LD	HL,$679D
677F E5		PUSH	HL
6780 21E367	LD	HL,$67E3
6783 1803	JR	$6788
6785 21A367	LD	HL,$67A3
6788 FEFF	CP	$FF
678A C8		RET	Z

678B 110300	LD	DE,$0003
678E 4E		LD	C,(HL)
678F B9		CP	C
6790 2805	JR	Z,$6797
6792 19		ADD	HL,DE
6793 0C		INC	C
6794 20F8	JR	NZ,$678E
6796 C9		RET

6797 23		INC	HL
6798 5E		LD	E,(HL)
6799 23		INC	HL
679A 56		LD	D,(HL)
679B EB		EX	DE,HL
679C E9		JP	(HL)
679D 211066	LD	HL,$6610
67A0 CBB6	RES	6,(HL)
67A2 C9		RET

67A3 02		DEFB	$02
67A4 55		DEFB	$55
67A5 68		DEFB	$68
67A6 03		DEFB	$03
67A7 64		DEFB	$64
67A8 68		DEFB	$68
67A9 04		DEFB	$04
67AA 71		DEFB	$71
67AB 68		DEFB	$68
67AC 05		DEFB	$05
67AD B8		DEFB	$B8
67AE 69		DEFB	$69
67AF 06		DEFB	$06
67B0 D4		DEFB	$D4
67B1 69		DEFB	$69
67B2 07		DEFB	$07
67B3 B4		DEFB	$B4
67B4 68		DEFB	$68
67B5 08		DEFB	$08
67B6 28		DEFB	$28
67B7 69		DEFB	$69
67B8 09		DEFB	$09
67B9 30		DEFB	$30
67BA 69		DEFB	$69
67BB 0A		DEFB	$0A
67BC 5D		DEFB	$5D
67BD 69		DEFB	$69
67BE 0D		DEFB	$0D
67BF 69		DEFB	$69
67C0 69		DEFB	$69
67C1 0E		DEFB	$0E
67C2 A2		DEFB	$A2
67C3 68		DEFB	$68
67C4 0F		DEFB	$0F
67C5 AC		DEFB	$AC
67C6 68		DEFB	$68
67C7 12		DEFB	$12
67C8 09		DEFB	$09
67C9 6A		DEFB	$6A
67CA 15		DEFB	$15
67CB 37		DEFB	$37
67CC 69		DEFB	$69
67CD 16		DEFB	$16
67CE 21		DEFB	$21
67CF 6A		DEFB	$6A
67D0 17		DEFB	$17
67D1 2A		DEFB	$2A
67D2 6A		DEFB	$6A
67D3 18		DEFB	$18
67D4 4A		DEFB	$4A
67D5 6A		DEFB	$6A
67D6 19		DEFB	$19
67D7 74		DEFB	$74
67D8 6A		DEFB	$6A
67D9 1A		DEFB	$1A
67DA 13		DEFB	$13
67DB 69		DEFB	$69
67DC 1B		DEFB	$1B
67DD 9C		DEFB	$9C
67DE 68		DEFB	$68
67DF 7F		DEFB	$7F
67E0 EE		DEFB	$EE
67E1 69		DEFB	$69
67E2 FF		DEFB	$FF
67E3 30		DEFB	$30
67E4 26		DEFB	$26
67E5 68		DEFB	$68
67E6 31		DEFB	$31
67E7 88		DEFB	$88
67E8 68		DEFB	$68
67E9 33		DEFB	$33
67EA 84		DEFB	$84
67EB 68		DEFB	$68
67EC 34		DEFB	$34
67ED 80		DEFB	$80
67EE 68		DEFB	$68
67EF 35		DEFB	$35
67F0 78		DEFB	$78
67F1 68		DEFB	$68
67F2 41		DEFB	$41
67F3 13		DEFB	$13
67F4 69		DEFB	$69
67F5 42		DEFB	$42
67F6 1B		DEFB	$1B
67F7 69		DEFB	$69
67F8 43		DEFB	$43
67F9 37		DEFB	$37
67FA 69		DEFB	$69
67FB 44		DEFB	$44
67FC 28		DEFB	$28
67FD 69		DEFB	$69
67FE 45		DEFB	$45
67FF 4A		DEFB	$4A
6800 6A		DEFB	$6A
6801 48		DEFB	$48
6802 74		DEFB	$74
6803 6A		DEFB	$6A
6804 49		DEFB	$49
6805 53		DEFB	$53
6806 69		DEFB	$69
6807 4A		DEFB	$4A
6808 2A		DEFB	$2A
6809 6A		DEFB	$6A
680A 4B		DEFB	$4B
680B 21		DEFB	$21
680C 6A		DEFB	$6A
680D 4C		DEFB	$4C
680E D4		DEFB	$D4
680F 69		DEFB	$69
6810 4D		DEFB	$4D
6811 B8		DEFB	$B8
6812 69		DEFB	$69
6813 4E		DEFB	$4E
6814 A2		DEFB	$A2
6815 68		DEFB	$68
6816 4F		DEFB	$4F
6817 AC		DEFB	$AC
6818 68		DEFB	$68
6819 52		DEFB	$52
681A 09		DEFB	$09
681B 6A		DEFB	$6A
681C 53		DEFB	$53
681D EE		DEFB	$EE
681E 69		DEFB	$69
681F 54		DEFB	$54
6820 3E		DEFB	$3E
6821 68		DEFB	$68
6822 59		DEFB	$59
6823 92		DEFB	$92
6824 68		DEFB	$68
6825 FF		DEFB	$FF

6826 3A3FF6	LD	A,($F63F)
6829 CD9EFA	CALL	$FA9E
682C 210066	LD	HL,$6600
682F 110866	LD	DE,$6608
6832 010800	LD	BC,$0008
6835 EDB0	LDIR
6837 3A44F6	LD	A,($F644)
683A 12		LD	(DE),A
683B C34A6A	JP	$6A4A
683E CD4A6A	CALL	$6A4A
6841 218062	LD	HL,$6280
6844 017800	LD	BC,$0078
6847 3E48	LD	A,$48
6849 CD576B	CALL	$6B57
684C CD936B	CALL	$6B93
684F CD2066	CALL	$6620
6852 C34A6A	JP	$6A4A
6855 3E07	LD	A,$07
6857 A0		AND	B
6858 47		LD	B,A
6859 2140F6	LD	HL,$F640
685C F3		DI
685D 7E		LD	A,(HL)
685E E6F8	AND	$F8
6860 B0		OR	B
6861 77		LD	(HL),A
6862 FB		EI
6863 C9		RET

6864 78		LD	A,B
6865 3243F6	LD	($F643),A
6868 21005B	LD	HL,$5B00
686B 013000	LD	BC,$0030
686E C3576B	JP	$6B57
6871 78		LD	A,B
6872 323FF6	LD	($F63F),A
6875 C39EFA	JP	$FA9E
6878 3E01	LD	A,$01
687A 211066	LD	HL,$6610
687D AE		XOR	(HL)
687E 77		LD	(HL),A
687F C9		RET

6880 3E02	LD	A,$02
6882 18F6	JR	$687A
6884 3E04	LD	A,$04
6886 18F2	JR	$687A
6888 211066	LD	HL,$6610
688B 7E		LD	A,(HL)
688C E687	AND	$87
688E F620	OR	$20
6890 77		LD	(HL),A
6891 C9		RET

6892 211066	LD	HL,$6610
6895 7E		LD	A,(HL)
6896 E687	AND	$87
6898 F628	OR	$28
689A 77		LD	(HL),A
689B C9		RET

689C 211066	LD	HL,$6610
689F CBF6	SET	6,(HL)
68A1 C9		RET

68A2 211B66	LD	HL,$661B
68A5 7E		LD	A,(HL)
68A6 EE80	XOR	$80
68A8 CBFE	SET	7,(HL)
68AA 18CE	JR	$687A
68AC 211B66	LD	HL,$661B
68AF 7E		LD	A,(HL)
68B0 CBBE	RES	7,(HL)
68B2 18C6	JR	$687A
68B4 0EFF	LD	C,$FF
68B6 1802	JR	$68BA
68B8 0E00	LD	C,$00
68BA 0610	LD	B,$10
68BC F3		DI
68BD 3A40F6	LD	A,($F640)
68C0 EE10	XOR	$10
68C2 3240F6	LD	($F640),A
68C5 D3FE	OUT	($FE),A
68C7 FB		EI
68C8 C5		PUSH	BC
68C9 CB01	RLC	C
68CB 2002	JR	NZ,$68CF
68CD 0610	LD	B,$10
68CF 10FE	DJNZ	$68CF
68D1 C1		POP	BC
68D2 10E8	DJNZ	$68BC
68D4 C9		RET

68D5 3E18	LD	A,$18
68D7 AE		XOR	(HL)
68D8 77		LD	(HL),A
68D9 CB5F	BIT	3,A
68DB 281F	JR	Z,$68FC
68DD 3A1166	LD	A,($6611)
68E0 D620	SUB	$20
68E2 3811	JR	C,$68F5
68E4 FE50	CP	$50
68E6 3010	JR	NC,$68F8
68E8 320C66	LD	($660C),A
68EB CB66	BIT	4,(HL)
68ED C0		RET	NZ

68EE 3E87	LD	A,$87
68F0 A6		AND	(HL)
68F1 77		LD	(HL),A
68F2 C38269	JP	$6982
68F5 AF		XOR	A
68F6 18F0	JR	$68E8
68F8 3E4F	LD	A,$4F
68FA 18EC	JR	$68E8
68FC 3A1166	LD	A,($6611)
68FF D620	SUB	$20
6901 3809	JR	C,$690C
6903 FE18	CP	$18
6905 3008	JR	NC,$690F
6907 320D66	LD	($660D),A
690A 18DF	JR	$68EB
690C AF		XOR	A
690D 18F8	JR	$6907
690F 3E17	LD	A,$17
6911 18F4	JR	$6907
6913 0600	LD	B,$00
6915 0E17	LD	C,$17
6917 16FF	LD	D,$FF
6919 1806	JR	$6921
691B 0617	LD	B,$17
691D 0E00	LD	C,$00
691F 1601	LD	D,$01
6921 1E04	LD	E,$04
6923 210D66	LD	HL,$660D
6926 181A	JR	$6942
6928 0600	LD	B,$00
692A 0E4F	LD	C,$4F
692C 16FF	LD	D,$FF
692E 180D	JR	$693D
6930 210C66	LD	HL,$660C
6933 7E		LD	A,(HL)
6934 F607	OR	$07
6936 77		LD	(HL),A
6937 064F	LD	B,$4F
6939 0E00	LD	C,$00
693B 1601	LD	D,$01
693D 1E02	LD	E,$02
693F 210C66	LD	HL,$660C
6942 7E		LD	A,(HL)
6943 B8		CP	B
6944 2035	JR	NZ,$697B
6946 3A1066	LD	A,($6610)
6949 A3		AND	E
694A C0		RET	NZ

694B 71		LD	(HL),C
694C CB53	BIT	2,E
694E C0		RET	NZ

694F CB7A	BIT	7,D
6951 280A	JR	Z,$695D
6953 AF		XOR	A
6954 210D66	LD	HL,$660D
6957 BE		CP	(HL)
6958 287A	JR	Z,$69D4
695A 35		DEC	(HL)
695B 1825	JR	$6982
695D 3E17	LD	A,$17
695F 210D66	LD	HL,$660D
6962 BE		CP	(HL)
6963 CA886A	JP	Z,$6A88
6966 34		INC	(HL)
6967 1819	JR	$6982
6969 3A1066	LD	A,($6610)
696C CB47	BIT	0,A
696E C45D69	CALL	NZ,$695D
6971 AF		XOR	A
6972 320C66	LD	($660C),A
6975 CD8269	CALL	$6982
6978 C33566	JP	$6635
697B 34		INC	(HL)
697C CB7A	BIT	7,D
697E 2802	JR	Z,$6982
6980 35		DEC	(HL)
6981 35		DEC	(HL)
6982 3A0D66	LD	A,($660D)
6985 CD7B6A	CALL	$6A7B
6988 3A0C66	LD	A,($660C)
698B 4F		LD	C,A
698C 09		ADD	HL,BC
698D 11005B	LD	DE,$5B00
6990 19		ADD	HL,DE
6991 F3		DI
6992 220866	LD	($6608),HL
6995 2A0C66	LD	HL,($660C)
6998 220E66	LD	($660E),HL
699B FB		EI
699C C9		RET

699D 3A0D66	LD	A,($660D)
69A0 3C		INC	A
69A1 CD7B6A	CALL	$6A7B
69A4 01005B	LD	BC,$5B00
69A7 09		ADD	HL,BC
69A8 C9		RET

69A9 CD9D69	CALL	$699D
69AC EB		EX	DE,HL
69AD 218062	LD	HL,$6280
69B0 B7		OR	A
69B1 ED52	SBC	HL,DE
69B3 44		LD	B,H
69B4 4D		LD	C,L
69B5 62		LD	H,D
69B6 6B		LD	L,E
69B7 C9		RET

69B8 CDA969	CALL	$69A9
69BB 2006	JR	NZ,$69C3
69BD CDE569	CALL	$69E5
69C0 C3736B	JP	$6B73
69C3 D5		PUSH	DE
69C4 115000	LD	DE,$0050
69C7 B7		OR	A
69C8 ED52	SBC	HL,DE
69CA D1		POP	DE
69CB EB		EX	DE,HL
69CC EDB0	LDIR
69CE CDE569	CALL	$69E5
69D1 C3936B	JP	$6B93
69D4 CDA969	CALL	$69A9
69D7 28E4	JR	Z,$69BD
69D9 212F62	LD	HL,$622F
69DC 117F62	LD	DE,$627F
69DF EDB8	LDDR
69E1 13		INC	DE
69E2 EB		EX	DE,HL
69E3 18E9	JR	$69CE
69E5 CD516B	CALL	$6B51
69E8 AF		XOR	A
69E9 320C66	LD	($660C),A
69EC 1894	JR	$6982
69EE CD9D69	CALL	$699D
69F1 2B		DEC	HL
69F2 ED5B0866	LD	DE,($6608)
69F6 B7		OR	A
69F7 ED52	SBC	HL,DE
69F9 2807	JR	Z,$6A02
69FB 44		LD	B,H
69FC 4D		LD	C,L
69FD 62		LD	H,D
69FE 6B		LD	L,E
69FF 23		INC	HL
6A00 EDB0	LDIR
6A02 CD496B	CALL	$6B49
6A05 12		LD	(DE),A
6A06 C3736B	JP	$6B73
6A09 CD9D69	CALL	$699D
6A0C 2B		DEC	HL
6A0D 54		LD	D,H
6A0E 5D		LD	E,L
6A0F ED4B0866	LD	BC,($6608)
6A13 B7		OR	A
6A14 ED42	SBC	HL,BC
6A16 28EA	JR	Z,$6A02
6A18 44		LD	B,H
6A19 4D		LD	C,L
6A1A 62		LD	H,D
6A1B 6B		LD	L,E
6A1C 2B		DEC	HL
6A1D EDB8	LDDR
6A1F 18E1	JR	$6A02
6A21 CD9D69	CALL	$699D
6A24 CD336A	CALL	$6A33
6A27 C3736B	JP	$6B73
6A2A 218062	LD	HL,$6280
6A2D CD336A	CALL	$6A33
6A30 C3936B	JP	$6B93
6A33 ED5B0866	LD	DE,($6608)
6A37 B7		OR	A
6A38 ED52	SBC	HL,DE
6A3A 44		LD	B,H
6A3B 4D		LD	C,L
6A3C CD496B	CALL	$6B49
6A3F 12		LD	(DE),A
6A40 62		LD	H,D
6A41 6B		LD	L,E
6A42 13		INC	DE
6A43 0B		DEC	BC
6A44 78		LD	A,B
6A45 B1		OR	C
6A46 C8		RET	Z

6A47 EDB0	LDIR
6A49 C9		RET

6A4A CDF66B	CALL	$6BF6
6A4D 218062	LD	HL,$6280
6A50 017800	LD	BC,$0078
6A53 CD496B	CALL	$6B49
6A56 CD576B	CALL	$6B57
6A59 210058	LD	HL,$5800
6A5C 018001	LD	BC,$0180
6A5F CD406B	CALL	$6B40
6A62 CD576B	CALL	$6B57
6A65 21005B	LD	HL,$5B00
6A68 013000	LD	BC,$0030
6A6B 3A43F6	LD	A,($F643)
6A6E CD576B	CALL	$6B57
6A71 CDED6B	CALL	$6BED
6A74 AF		XOR	A
6A75 320D66	LD	($660D),A
6A78 C37169	JP	$6971
6A7B 210000	LD	HL,$0000
6A7E 115000	LD	DE,$0050
6A81 47		LD	B,A
6A82 B7		OR	A
6A83 C8		RET	Z

6A84 19		ADD	HL,DE
6A85 10FD	DJNZ	$6A84
6A87 C9		RET

6A88 CDF66B	CALL	$6BF6
6A8B 21505B	LD	HL,$5B50
6A8E 11005B	LD	DE,$5B00
6A91 013007	LD	BC,$0730
6A94 EDB0	LDIR
6A96 CD516B	CALL	$6B51
6A99 CD8269	CALL	$6982
6A9C AF		XOR	A
6A9D 321266	LD	($6612),A
6AA0 321366	LD	($6613),A
6AA3 321466	LD	($6614),A
6AA6 ED4B48F6	LD	BC,($F648)
6AAA 0C		INC	C
6AAB C5		PUSH	BC
6AAC 3EC1	LD	A,$C1
6AAE 91		SUB	C
6AAF 47		LD	B,A
6AB0 C5		PUSH	BC
6AB1 CDD16A	CALL	$6AD1
6AB4 012000	LD	BC,$0020
6AB7 EDB0	LDIR
6AB9 C1		POP	BC
6ABA 78		LD	A,B
6ABB B9		CP	C
6ABC 300B	JR	NC,$6AC9
6ABE C5		PUSH	BC
6ABF 010200	LD	BC,$0002
6AC2 CD406B	CALL	$6B40
6AC5 CD576B	CALL	$6B57
6AC8 C1		POP	BC
6AC9 10E5	DJNZ	$6AB0
6ACB C1		POP	BC
6ACC 10DD	DJNZ	$6AAB
6ACE C3ED6B	JP	$6BED
6AD1 3A1366	LD	A,($6613)
6AD4 FE08	CP	$08
6AD6 3828	JR	C,$6B00
6AD8 AF		XOR	A
6AD9 321366	LD	($6613),A
6ADC 3A1266	LD	A,($6612)
6ADF FEE0	CP	$E0
6AE1 3818	JR	C,$6AFB
6AE3 AF		XOR	A
6AE4 321266	LD	($6612),A
6AE7 3A1466	LD	A,($6614)
6AEA FE10	CP	$10
6AEC 3806	JR	C,$6AF4
6AEE AF		XOR	A
6AEF 321466	LD	($6614),A
6AF2 180C	JR	$6B00
6AF4 C608	ADD	A,$08
6AF6 321466	LD	($6614),A
6AF9 1805	JR	$6B00
6AFB C620	ADD	A,$20
6AFD 321266	LD	($6612),A
6B00 2A1266	LD	HL,($6612)
6B03 7C		LD	A,H
6B04 3C		INC	A
6B05 321366	LD	($6613),A
6B08 3A1466	LD	A,($6614)
6B0B B4		OR	H
6B0C F640	OR	$40
6B0E 67		LD	H,A
6B0F 5D		LD	E,L
6B10 54		LD	D,H
6B11 3E07	LD	A,$07
6B13 A4		AND	H
6B14 47		LD	B,A
6B15 3EE0	LD	A,$E0
6B17 A5		AND	L
6B18 0F		RRCA
6B19 0F		RRCA
6B1A B0		OR	B
6B1B 47		LD	B,A
6B1C 7C		LD	A,H
6B1D 07		RLCA
6B1E 07		RLCA
6B1F 07		RLCA
6B20 E6C0	AND	$C0
6B22 B0		OR	B
6B23 47		LD	B,A
6B24 3A48F6	LD	A,($F648)
6B27 80		ADD	A,B
6B28 FEC0	CP	$C0
6B2A D0		RET	NC

6B2B 47		LD	B,A
6B2C E638	AND	$38
6B2E 07		RLCA
6B2F 07		RLCA
6B30 6F		LD	L,A
6B31 3EC0	LD	A,$C0
6B33 A0		AND	B
6B34 0F		RRCA
6B35 0F		RRCA
6B36 0F		RRCA
6B37 F640	OR	$40
6B39 4F		LD	C,A
6B3A 3E07	LD	A,$07
6B3C A0		AND	B
6B3D B1		OR	C
6B3E 67		LD	H,A
6B3F C9		RET

6B40 3A1066	LD	A,($6610)
6B43 E680	AND	$80
6B45 C8		RET	Z

6B46 F6FF	OR	$FF
6B48 C9		RET

6B49 3A1066	LD	A,($6610)
6B4C E680	AND	$80
6B4E F620	OR	$20
6B50 C9		RET

6B51 010500	LD	BC,$0005
6B54 CD496B	CALL	$6B49
6B57 F3		DI
6B58 ED731666	LD	($6616),SP
6B5C F9		LD	SP,HL
6B5D 67		LD	H,A
6B5E 6F		LD	L,A
6B5F E5		PUSH	HL
6B60 E5		PUSH	HL
6B61 E5		PUSH	HL
6B62 E5		PUSH	HL
6B63 E5		PUSH	HL
6B64 E5		PUSH	HL
6B65 E5		PUSH	HL
6B66 E5		PUSH	HL
6B67 0B		DEC	BC
6B68 78		LD	A,B
6B69 B1		OR	C
6B6A C25F6B	JP	NZ,$6B5F
6B6D ED7B1666	LD	SP,($6616)
6B71 FB		EI
6B72 C9		RET

6B73 CDAE6B	CALL	$6BAE
6B76 2A0E66	LD	HL,($660E)
6B79 E5		PUSH	HL
6B7A 3A0D66	LD	A,($660D)
6B7D CD7B6A	CALL	$6A7B
6B80 11005B	LD	DE,$5B00
6B83 19		ADD	HL,DE
6B84 09		ADD	HL,BC
6B85 3A0D66	LD	A,($660D)
6B88 57		LD	D,A
6B89 CDBD6B	CALL	$6BBD
6B8C E1		POP	HL
6B8D 220E66	LD	($660E),HL
6B90 C3ED6B	JP	$6BED
6B93 CDAE6B	CALL	$6BAE
6B96 2A0E66	LD	HL,($660E)
6B99 E5		PUSH	HL
6B9A 265B	LD	H,$5B
6B9C 69		LD	L,C
6B9D 1600	LD	D,$00
6B9F 0618	LD	B,$18
6BA1 C5		PUSH	BC
6BA2 CDBD6B	CALL	$6BBD
6BA5 14		INC	D
6BA6 0E28	LD	C,$28
6BA8 09		ADD	HL,BC
6BA9 C1		POP	BC
6BAA 10F5	DJNZ	$6BA1
6BAC 18DE	JR	$6B8C
6BAE AF		XOR	A
6BAF 324AF6	LD	($F64A),A
6BB2 3A50F6	LD	A,($F650)
6BB5 E618	AND	$18
6BB7 0E00	LD	C,$00
6BB9 C8		RET	Z

6BBA C3C973	JP	$73C9
6BBD 59		LD	E,C
6BBE 0628	LD	B,$28
6BC0 ED530E66	LD	($660E),DE
6BC4 C5		PUSH	BC
6BC5 D5		PUSH	DE
6BC6 E5		PUSH	HL
6BC7 46		LD	B,(HL)
6BC8 CDA566	CALL	$66A5
6BCB E1		POP	HL
6BCC D1		POP	DE
6BCD C1		POP	BC
6BCE 1C		INC	E
6BCF 23		INC	HL
6BD0 10EE	DJNZ	$6BC0
6BD2 C9		RET

6BD3 2A0866	LD	HL,($6608)
6BD6 ED5B0A66	LD	DE,($660A)
6BDA B7		OR	A
6BDB ED52	SBC	HL,DE
6BDD 2020	JR	NZ,$6BFF
6BDF 3E80	LD	A,$80
6BE1 211A66	LD	HL,$661A
6BE4 AE		XOR	(HL)
6BE5 77		LD	(HL),A
6BE6 1A		LD	A,(DE)
6BE7 E67F	AND	$7F
6BE9 B6		OR	(HL)
6BEA C3A466	JP	$66A4
6BED 214AF6	LD	HL,$F64A
6BF0 36FF	LD	(HL),$FF
6BF2 23		INC	HL
6BF3 3601	LD	(HL),$01
6BF5 C9		RET

6BF6 214AF6	LD	HL,$F64A
6BF9 3600	LD	(HL),$00
6BFB ED5B0A66	LD	DE,($660A)
6BFF 1A		LD	A,(DE)
6C00 2A0E66	LD	HL,($660E)
6C03 E5		PUSH	HL
6C04 2A1C66	LD	HL,($661C)
6C07 220E66	LD	($660E),HL
6C0A CDA466	CALL	$66A4
6C0D E1		POP	HL
6C0E 220E66	LD	($660E),HL
6C11 221C66	LD	($661C),HL
6C14 2A0866	LD	HL,($6608)
6C17 220A66	LD	($660A),HL
6C1A 7E		LD	A,(HL)
6C1B E680	AND	$80
6C1D 321A66	LD	($661A),A
6C20 3E01	LD	A,$01
6C22 324BF6	LD	($F64B),A
6C25 C9		RET

6C26 21EB6C	LD	HL,$6CEB
6C29 3A50F6	LD	A,($F650)
6C2C CB77	BIT	6,A
6C2E 2803	JR	Z,$6C33
6C30 211B6D	LD	HL,$6D1B
6C33 221866	LD	($6618),HL
6C36 2E37	LD	L,$37
6C38 06FE	LD	B,$FE
6C3A 0EFE	LD	C,$FE
6C3C 11FFFF	LD	DE,$FFFF
6C3F CDAAF9	CALL	$F9AA
6C42 2F		CPL
6C43 E63F	AND	$3F
6C45 280E	JR	Z,$6C55
6C47 67		LD	H,A
6C48 7D		LD	A,L
6C49 14		INC	D
6C4A C0		RET	NZ

6C4B D608	SUB	$08
6C4D CB3C	SRL	H
6C4F 30FA	JR	NC,$6C4B
6C51 53		LD	D,E
6C52 5F		LD	E,A
6C53 20F4	JR	NZ,$6C49
6C55 2D		DEC	L
6C56 CB00	RLC	B
6C58 38E5	JR	C,$6C3F
6C5A 7A		LD	A,D
6C5B 3C		INC	A
6C5C 201E	JR	NZ,$6C7C
6C5E 7B		LD	A,E
6C5F 3C		INC	A
6C60 C8		RET	Z

6C61 1600	LD	D,$00
6C63 7B		LD	A,E
6C64 FE2A	CP	$2A
6C66 2854	JR	Z,$6CBC
6C68 2A1866	LD	HL,($6618)
6C6B 19		ADD	HL,DE
6C6C 7E		LD	A,(HL)
6C6D FEFF	CP	$FF
6C6F 205E	JR	NZ,$6CCF
6C71 214FF6	LD	HL,$F64F
6C74 3606	LD	(HL),$06
6C76 2B		DEC	HL
6C77 77		LD	(HL),A
6C78 2B		DEC	HL
6C79 3601	LD	(HL),$01
6C7B C9		RET

6C7C FE21	CP	$21
6C7E 281B	JR	Z,$6C9B
6C80 FE08	CP	$08
6C82 280F	JR	Z,$6C93
6C84 FE30	CP	$30
6C86 7B		LD	A,E
6C87 2821	JR	Z,$6CAA
6C89 5A		LD	E,D
6C8A 57		LD	D,A
6C8B 3C		INC	A
6C8C FE21	CP	$21
6C8E 280B	JR	Z,$6C9B
6C90 FE08	CP	$08
6C92 C0		RET	NZ

6C93 21AB6D	LD	HL,$6DAB
6C96 221866	LD	($6618),HL
6C99 18C6	JR	$6C61
6C9B 217B6D	LD	HL,$6D7B
6C9E 18F6	JR	$6C96
6CA0 2150F6	LD	HL,$F650
6CA3 CBBE	RES	7,(HL)
6CA5 214B6D	LD	HL,$6D4B
6CA8 18EC	JR	$6C96
6CAA FE24	CP	$24
6CAC 281B	JR	Z,$6CC9
6CAE FE2B	CP	$2B
6CB0 281B	JR	Z,$6CCD
6CB2 FE20	CP	$20
6CB4 20EA	JR	NZ,$6CA0
6CB6 2150F6	LD	HL,$F650
6CB9 CBFE	SET	7,(HL)
6CBB C9		RET

6CBC 2150F6	LD	HL,$F650
6CBF CB7E	BIT	7,(HL)
6CC1 CBBE	RES	7,(HL)
6CC3 28A3	JR	Z,$6C68
6CC5 3E09	LD	A,$09
6CC7 1806	JR	$6CCF
6CC9 3E90	LD	A,$90
6CCB 1802	JR	$6CCF
6CCD 3E7F	LD	A,$7F
6CCF 214EF6	LD	HL,$F64E
6CD2 BE		CP	(HL)
6CD3 23		INC	HL
6CD4 2809	JR	Z,$6CDF
6CD6 3606	LD	(HL),$06
6CD8 2B		DEC	HL
6CD9 77		LD	(HL),A
6CDA 2B		DEC	HL
6CDB 2B		DEC	HL
6CDC 36FF	LD	(HL),$FF
6CDE C9		RET

6CDF 35		DEC	(HL)
6CE0 C0		RET	NZ

6CE1 3601	LD	(HL),$01
6CE3 2B		DEC	HL
6CE4 2B		DEC	HL
6CE5 3601	LD	(HL),$01
6CE7 2B		DEC	HL
6CE8 36FF	LD	(HL),$FF
6CEA C9		RET

6CEB 83		DEFB	$83
6CEC 82		DEFB	$82
6CED FE		DEFB	$FE
6CEE 08		DEFB	$08
6CEF 1B		DEFB	$1B
6CF0 0A		DEFB	$0A
6CF1 13		DEFB	$13
6CF2 FF		DEFB	$FF
6CF3 62		DEFB	$62
6CF4 68		DEFB	$68
6CF5 79		DEFB	$79
6CF6 36		DEFB	$36
6CF7 35		DEFB	$35
6CF8 74		DEFB	$74
6CF9 67		DEFB	$67
6CFA 76		DEFB	$76
6CFB 6E		DEFB	$6E
6CFC 6A		DEFB	$6A
6CFD 75		DEFB	$75
6CFE 37		DEFB	$37
6CFF 34		DEFB	$34
6D00 72		DEFB	$72
6D01 66		DEFB	$66
6D02 63		DEFB	$63
6D03 6D		DEFB	$6D
6D04 6B		DEFB	$6B
6D05 69		DEFB	$69
6D06 38		DEFB	$38
6D07 33		DEFB	$33
6D08 65		DEFB	$65
6D09 64		DEFB	$64
6D0A 78		DEFB	$78
6D0B FF		DEFB	$FF
6D0C 6C		DEFB	$6C
6D0D 6F		DEFB	$6F
6D0E 39		DEFB	$39
6D0F 32		DEFB	$32
6D10 77		DEFB	$77
6D11 73		DEFB	$73
6D12 7A		DEFB	$7A
6D13 20		DEFB	$20
6D14 0D		DEFB	$0D
6D15 70		DEFB	$70
6D16 30		DEFB	$30
6D17 31		DEFB	$31
6D18 71		DEFB	$71
6D19 61		DEFB	$61
6D1A FF		DEFB	$FF
6D1B 83		DEFB	$83
6D1C 82		DEFB	$82
6D1D 81		DEFB	$81
6D1E 08		DEFB	$08
6D1F 1B		DEFB	$1B
6D20 0A		DEFB	$0A
6D21 13		DEFB	$13
6D22 FF		DEFB	$FF
6D23 42		DEFB	$42
6D24 48		DEFB	$48
6D25 59		DEFB	$59
6D26 36		DEFB	$36
6D27 35		DEFB	$35
6D28 54		DEFB	$54
6D29 47		DEFB	$47
6D2A 56		DEFB	$56
6D2B 4E		DEFB	$4E
6D2C 4A		DEFB	$4A
6D2D 55		DEFB	$55
6D2E 37		DEFB	$37
6D2F 34		DEFB	$34
6D30 52		DEFB	$52
6D31 46		DEFB	$46
6D32 43		DEFB	$43
6D33 4D		DEFB	$4D
6D34 4B		DEFB	$4B
6D35 49		DEFB	$49
6D36 38		DEFB	$38
6D37 33		DEFB	$33
6D38 45		DEFB	$45
6D39 44		DEFB	$44
6D3A 58		DEFB	$58
6D3B FF		DEFB	$FF
6D3C 4C		DEFB	$4C
6D3D 4F		DEFB	$4F
6D3E 39		DEFB	$39
6D3F 32		DEFB	$32
6D40 57		DEFB	$57
6D41 53		DEFB	$53
6D42 5A		DEFB	$5A
6D43 20		DEFB	$20
6D44 0D		DEFB	$0D
6D45 50		DEFB	$50
6D46 30		DEFB	$30
6D47 31		DEFB	$31
6D48 51		DEFB	$51
6D49 41		DEFB	$41
6D4A FF		DEFB	$FF
6D4B 83		DEFB	$83
6D4C 82		DEFB	$82
6D4D 81		DEFB	$81
6D4E 08		DEFB	$08
6D4F 1B		DEFB	$1B
6D50 0A		DEFB	$0A
6D51 13		DEFB	$13
6D52 FF		DEFB	$FF
6D53 42		DEFB	$42
6D54 48		DEFB	$48
6D55 59		DEFB	$59
6D56 18		DEFB	$18
6D57 13		DEFB	$13
6D58 54		DEFB	$54
6D59 47		DEFB	$47
6D5A 56		DEFB	$56
6D5B 4E		DEFB	$4E
6D5C 4A		DEFB	$4A
6D5D 55		DEFB	$55
6D5E 05		DEFB	$05
6D5F 34		DEFB	$34
6D60 52		DEFB	$52
6D61 46		DEFB	$46
6D62 43		DEFB	$43
6D63 4D		DEFB	$4D
6D64 4B		DEFB	$4B
6D65 49		DEFB	$49
6D66 04		DEFB	$04
6D67 33		DEFB	$33
6D68 45		DEFB	$45
6D69 44		DEFB	$44
6D6A 58		DEFB	$58
6D6B FF		DEFB	$FF
6D6C 4C		DEFB	$4C
6D6D 4F		DEFB	$4F
6D6E E0		DEFB	$E0
6D6F 90		DEFB	$90
6D70 57		DEFB	$57
6D71 53		DEFB	$53
6D72 5A		DEFB	$5A
6D73 20		DEFB	$20
6D74 0D		DEFB	$0D
6D75 50		DEFB	$50
6D76 7F		DEFB	$7F
6D77 08		DEFB	$08
6D78 51		DEFB	$51
6D79 41		DEFB	$41
6D7A FF		DEFB	$FF
6D7B 87		DEFB	$87
6D7C 86		DEFB	$86
6D7D 85		DEFB	$85
6D7E 08		DEFB	$08
6D7F 1B		DEFB	$1B
6D80 0A		DEFB	$0A
6D81 EE		DEFB	$EE
6D82 FF		DEFB	$FF
6D83 2A		DEFB	$2A
6D84 5E		DEFB	$5E
6D85 5B		DEFB	$5B
6D86 26		DEFB	$26
6D87 25		DEFB	$25
6D88 3E		DEFB	$3E
6D89 7D		DEFB	$7D
6D8A 2F		DEFB	$2F
6D8B 2C		DEFB	$2C
6D8C 2D		DEFB	$2D
6D8D 5D		DEFB	$5D
6D8E 27		DEFB	$27
6D8F 24		DEFB	$24
6D90 3C		DEFB	$3C
6D91 7B		DEFB	$7B
6D92 3F		DEFB	$3F
6D93 2E		DEFB	$2E
6D94 2B		DEFB	$2B
6D95 FF		DEFB	$FF
6D96 28		DEFB	$28
6D97 23		DEFB	$23
6D98 FF		DEFB	$FF
6D99 5C		DEFB	$5C
6D9A 60		DEFB	$60
6D9B FF		DEFB	$FF
6D9C 3D		DEFB	$3D
6D9D 3B		DEFB	$3B
6D9E 29		DEFB	$29
6D9F 40		DEFB	$40
6DA0 FF		DEFB	$FF
6DA1 7C		DEFB	$7C
6DA2 3A		DEFB	$3A
6DA3 20		DEFB	$20
6DA4 0D		DEFB	$0D
6DA5 22		DEFB	$22
6DA6 5F		DEFB	$5F
6DA7 21		DEFB	$21
6DA8 FF		DEFB	$FF
6DA9 7E		DEFB	$7E
6DAA FF		DEFB	$FF
6DAB 8B		DEFB	$8B
6DAC 8A		DEFB	$8A
6DAD 89		DEFB	$89
6DAE 08		DEFB	$08
6DAF 1B		DEFB	$1B
6DB0 0A		DEFB	$0A
6DB1 13		DEFB	$13
6DB2 FF		DEFB	$FF
6DB3 02		DEFB	$02
6DB4 08		DEFB	$08
6DB5 19		DEFB	$19
6DB6 FF		DEFB	$FF
6DB7 FF		DEFB	$FF
6DB8 14		DEFB	$14
6DB9 07		DEFB	$07
6DBA 16		DEFB	$16
6DBB 0E		DEFB	$0E
6DBC 0A		DEFB	$0A
6DBD 15		DEFB	$15
6DBE FF		DEFB	$FF
6DBF FF		DEFB	$FF
6DC0 12		DEFB	$12
6DC1 06		DEFB	$06
6DC2 03		DEFB	$03
6DC3 0D		DEFB	$0D
6DC4 0B		DEFB	$0B
6DC5 09		DEFB	$09
6DC6 FF		DEFB	$FF
6DC7 FF		DEFB	$FF
6DC8 05		DEFB	$05
6DC9 04		DEFB	$04
6DCA 18		DEFB	$18
6DCB FF		DEFB	$FF
6DCC 0C		DEFB	$0C
6DCD 0F		DEFB	$0F
6DCE FF		DEFB	$FF
6DCF FF		DEFB	$FF
6DD0 17		DEFB	$17
6DD1 13		DEFB	$13
6DD2 1A		DEFB	$1A
6DD3 20		DEFB	$20
6DD4 0D		DEFB	$0D
6DD5 10		DEFB	$10
6DD6 FF		DEFB	$FF
6DD7 FF		DEFB	$FF
6DD8 11		DEFB	$11
6DD9 01		DEFB	$01
6DDA FF		DEFB	$FF
6DDB 00		DEFB	$00
6DDC 00		DEFB	$00
6DDD 00		DEFB	$00
6DDE 00		DEFB	$00
6DDF 00		DEFB	$00
6DE0 21		DEFB	$21
6DE1 00		DEFB	$00
6DE2 58		DEFB	$58
6DE3 11		DEFB	$11
6DE4 01		DEFB	$01
6DE5 58		DEFB	$58
6DE6 01		DEFB	$01
6DE7 FF		DEFB	$FF
6DE8 02		DEFB	$02
6DE9 36		DEFB	$36
6DEA 06		DEFB	$06
6DEB ED		DEFB	$ED
6DEC B0		DEFB	$B0
6DED 21		DEFB	$21
6DEE 40		DEFB	$40
6DEF F6		DEFB	$F6
6DF0 3E		DEFB	$3E
6DF1 06		DEFB	$06
6DF2 32		DEFB	$32
6DF3 43		DEFB	$43
6DF4 F6		DEFB	$F6
6DF5 3E		DEFB	$3E
6DF6 F8		DEFB	$F8
6DF7 A6		DEFB	$A6
6DF8 77		DEFB	$77
6DF9 00		DEFB	$00
6DFA 00		DEFB	$00
6DFB 00		DEFB	$00
6DFC 00		DEFB	$00
6DFD C3		DEFB	$C3
6DFE 64		DEFB	$64
6DFF F9		DEFB	$F9
6E00 00		DEFB	$00
6E01 00		DEFB	$00
6E02 00		DEFB	$00
6E03 00		DEFB	$00
6E04 00		DEFB	$00
6E05 00		DEFB	$00
6E06 00		DEFB	$00
6E07 00		DEFB	$00
6E08 04		DEFB	$04
6E09 00		DEFB	$00
6E0A 00		DEFB	$00
6E0B 00		DEFB	$00
6E0C 00		DEFB	$00
6E0D 00		DEFB	$00
6E0E 00		DEFB	$00
6E0F 00		DEFB	$00
					; ########## BIOS WRITE ##########
6E10 F6FF	OR	$FF		; A = $FF
6E12 1805	JR	$6E19
					; ########## BIOS READ ###########
6E14 AF		XOR	A		; A = $00
6E15 32046E	LD	($6E04),A	; ($6E04) = $00
6E18 4F		LD	C,A		; C = $00
6E19 21056E	LD	HL,$6E05	; ---------- BIOS READ/WRITE ----------
6E1C 71		LD	(HL),C		; ($6E05) = $00 if READ, or parameter passed to BIOS WRITE in C
6E1D 23		INC	HL		; HL = $6E06
6E1E 77		LD	(HL),A		; ($6E06) = $00 if READ, $FF if WRITE
6E1F 215CF6	LD	HL,$F65C	; crt. logical drv# address
6E22 7E		LD	A,(HL)		; A = crt. logical drv#
6E23 23		INC	HL		; HL = $F65D
6E24 BE		CP	(HL)		; compare logical drv# with ($F65D)
6E25 77		LD	(HL),A		; ($F65D) = logical drv#
6E26 2847	JR	Z,$6E6F		; if same drive, skip forward  ---> ---> ---> ---> ---> ---> ---> ---> ---> --->|
6E28 CDD370	CALL	$70D3		; A = $FF xor ($6E07), HL=$6E07							|
6E2B 215CF6	LD	HL,$F65C	; crt. logical drv# address							|
6E2E 4E		LD	C,(HL)		; C = crt. logical drv#								|
6E2F CB51	BIT	2,C		; test if logical drv# > 3							|
6E31 3E00	LD	A,$00
6E33 21086E	LD	HL,$6E08
6E36 2006	JR	NZ,$6E3E	; if logical drv# > 3 ---> ---> ---> ---> ---> ---> --->|			|
6E38 7E		LD	A,(HL)		; A = ($6E08)						|			|
6E39 B9		CP	C		; compare ($6E08) to logical drv#			|			|
6E3A 2019	JR	NZ,$6E55	; if different  ---> ---> ---> ---> ---> ---> ---> ---> ---> -->|		|
6E3C EE04	XOR	$04		;							|	|		|
6E3E 77		LD	(HL),A		; ($5B08) = (0 if logdrv#>3) or (($5B08)xor$04 if not)<-/	|		|
6E3F 3E41	LD	A,$41		;								|		|
6E41 81		ADD	A,C		; A = $41 + logical drv#					|		|
6E42 329272	LD	($7292),A	; ($7F22) = $41 + logical drv#					|		|
6E45 218272	LD	HL,$7282	;								|		|
6E48 CD3B72	CALL	$723B		; call MSG_PRINT						|		|
6E4B CD76F7	CALL	$F776		; call BIOS CONIN						|		|
6E4E CD7D6E	CALL	$6E7D		;								|		|
6E51 36FF	LD	(HL),$FF	;								|		|
6E53 181A	JR	$6E6F		; --> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> --->|
6E55 21F8FD	LD	HL,$FDF8	; addr of first 8272 cmd arg (head+drive) <--- <--- <--- <--- <-|		|
6E58 4E		LD	C,(HL)		; C = head+drive								|
6E59 CB91	RES	2,C		; reset head bit (for head 0)							|
6E5B 3A51F6	LD	A,($F651)	; physical drv#									|
6E5E 77		LD	(HL),A		; store physical drv# side 0 at addr of first 8272 cmd arg			|
6E5F 23		INC	HL		; addr of next 8272 cmd arg - cylinder number					|
6E60 46		LD	B,(HL)		; B = cylinder number								|
6E61 110CFC	LD	DE,$FC0C	;										|
6E64 69		LD	L,C		; L = physical drv# in 8272 cmd arg						|
6E65 2600	LD	H,$00		; HL = physical drv# in 8272 cmd arg						|
6E67 19		ADD	HL,DE		; HL = $FC0C + physical drv# in 8272 cmd arg					|
6E68 70		LD	(HL),B		; ($FC0C + physical drv# in 8272 cmd arg) = cylinder number			|
6E69 B3		OR	E		; A = physical drv# + $0C							|
6E6A 6F		LD	L,A		; HL = $FC0C + physical drv#							|
6E6B 7E		LD	A,(HL)		; A = ($FC0C + physical drv#)							|
6E6C 32F9FD	LD	($FDF9),A	; ($FDF9) = 8272 cmd arg 2 = ($FC0C + physical drv#)				|
6E6F CDAE6F	CALL	$6FAE		; send 8272 SIS <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <---|
6E72 FEC0	CP	$C0		; A = first 8272 result byte = ST0; check if abnormal termination		|
6E74 381C	JR	C,$6E92		; if OK, jump  ----> ---> ---> ---> --->|					|
6E76 CD806E	CALL	$6E80		; HL=FC08+physical drv#			|					|
6E79 36FF	LD	(HL),$FF	;					|					|
6E7B 18F2	JR	$6E6F		; > ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ----->| always jump
					; ############# RETURNS A=$FF #############
6E7D 3A51F6	LD	A,($F651)	; A = physical drv#			|
					; ############# RETURNS A=$FF IF PHYSICAL DRV=0...3, $00 IF PHYSICAL DRV=4...7 #############
6E80 E603	AND	$03		; keep last 2 bits (drives 0 1 2 3)	|
6E82 2108FC	LD	HL,$FC08	;					|
6E85 B5		OR	L		; A = physical drv# + 8			|
6E86 6F		LD	L,A		; HL = FC08 + physical drv# = ?		|
6E87 7E		LD	A,(HL)		; A = (FC08 + physical drv#)=FF		|
6E88 C9		RET			;					|
					;					|
6E89 3D		DEC	A		;					|
6E8A CD906F	CALL	$6F90		;					|
6E8D CD4E70	CALL	$704E		;					|
6E90 1821	JR	$6EB3		; ---> ---> ---> ---> ---> ---> ---> ---> ---> --->|
6E92 CDCB6F	CALL	$6FCB		; check if drive READY <-- <--- <--- <--|	   |
6E95 CD806E	CALL	$6E80		; A = (FC08 + physical drv#)			   |
6E98 2156F6	LD	HL,$F656	;						   |
6E9B BE		CP	(HL)		; compare (FC08 + physical drv#) to ($DF56)	   |
6E9C 2820	JR	Z,$6EBE		; jump if equal ---> ---> ---> ---> --->|	   |
6E9E 3C		INC	A		;					|	   |
6E9F 20E8	JR	NZ,$6E89	;					|	   |
6EA1 32036E	LD	($6E03),A	;					|	   |
6EA4 2151F6	LD	HL,$F651	; physical drv# address			|	   |	
6EA7 CB4E	BIT	1,(HL)		; test if drive 2 or 3			|	   |
6EA9 2802	JR	Z,$6EAD		; if drive 0 or 1 skip next line	|	   |	================== NEEDS CHANGE FOR ALL DRIVES DD ==================
6EAB F640	OR	$40		; set bit 2
6EAD CD906F	CALL	$6F90		; sends Specify cmd for 512 byte/sect, 9 sect/trk  |
6EB0 CD3070	CALL	$7030		;					|	   |
6EB3 B7		OR	A		; <--- <--- <--- <--- <--- <--- <--- <--- <--- <---|
6EB4 C2D871	JP	NZ,$71D8	;					|
6EB7 CD7D6E	CALL	$6E7D		;					|
6EBA 3A56F6	LD	A,($F656)	;					|
6EBD 77		LD	(HL),A		;					|
6EBE 3A51F6	LD	A,($F651)	; A = physical drv# <--- <--- <--- <----|
6EC1 CB4F	BIT	1,A		; test if drv# 2 or 3
6EC3 200F	JR	NZ,$6ED4	; jump if drv# 2 or 3 --> ---> ---> --->|		================== NEEDS CHANGE FOR ALL DRIVES DD ==================
6EC5 CDD370	CALL	$70D3		; A = $FF xor ($5B07)			|
6EC8 CDE66F	CALL	$6FE6
6ECB AF		XOR	A		; A = $00
6ECC 3255F6	LD	($F655),A
6ECF 3A066E	LD	A,($6E06)
6ED2 1836	JR	$6F0A
6ED4 AF		XOR	A		; A = $00  <--- <--- <--- <--- <--- <---|
6ED5 21066E	LD	HL,$6E06
6ED8 BE		CP	(HL)		; ($5B06) = $00 if READ, $FF if WRITE
6ED9 2B		DEC	HL
6EDA 2B		DEC	HL		; HL = $5B04
6EDB 2815	JR	Z,$6EF2		; if READ jump ----> ---> ---> ---> --->|
6EDD 23		INC	HL		; HL = $5B05				|
6EDE 7E		LD	A,(HL)		; A = par passed to WRITE in C		|
6EDF FE02	CP	$02		; test if = 2				|
6EE1 2B		DEC	HL		; HL = $5B04				|
6EE2 7E		LD	A,(HL)		;					|
6EE3 2009	JR	NZ,$6EEE	;					|
6EE5 ED5B59F6	LD	DE,($F659)	; DE = $DFCA = addr of DPB #2-#7	|
6EE9 13		INC	DE		;					|
6EEA 13		INC	DE		;					|
6EEB 13		INC	DE		; DE = $DFCD = BLM for drv #2-#7	|
6EEC 1A		LD	A,(DE)		; A = BLM				|
6EED 3C		INC	A		;					|
6EEE B7		OR	A		;					|
6EEF 2801	JR	Z,$6EF2		;					|
6EF1 35		DEC	(HL)		;					|
6EF2 1155F6	LD	DE,$F655	; logical sector# address <--- <--- <---|	
6EF5 0604	LD	B,$04		; 4 loops next
6EF7 1B		DEC	DE		; DE = $DF54 <--- <--- <--- <--\
6EF8 2B		DEC	HL		; HL = $5B03			|
6EF9 1A		LD	A,(DE)		; A=physical sector#+1		|
6EFA BE		CP	(HL)		;				|
6EFB 2004	JR	NZ,$6F01	; -> ---> ---> ---> --->|	|	
6EFD 10F8	DJNZ	$6EF7		; ---> ---> ---> ---> ---> --->/
6EFF 181B	JR	$6F1C		; ---> ---> ---> ---> ---> --->\
6F01 CDD370	CALL	$70D3		; A=$FF xor ($5B07) <---|	|
6F04 CDE66F	CALL	$6FE6		;				|
6F07 3A046E	LD	A,($6E04)	;				|
6F0A B7		OR	A		;				|
6F0B CCEC70	CALL	Z,$70EC		;				|
6F0E 2AF8FD	LD	HL,($FDF8)	;				|
6F11 CB95	RES	2,L		;				|
6F13 22006E	LD	($6E00),HL	;				|
6F16 2AFAFD	LD	HL,($FDFA)	;				|
6F19 22026E	LD	($6E02),HL	;				|
6F1C 2100FF	LD	HL,$FF00	; <---- <--- <--- <--- <--- <--/
6F1F 3A55F6	LD	A,($F655)
6F22 1F		RRA
6F23 CB1D	RR	L
6F25 1F		RRA
6F26 CB14	RL	H
6F28 ED5B57F6	LD	DE,($F657)
6F2C 018000	LD	BC,$0080
6F2F 3A066E	LD	A,($6E06)
6F32 B7		OR	A
6F33 2804	JR	Z,$6F39
6F35 EB		EX	DE,HL
6F36 32076E	LD	($6E07),A
6F39 CD9AF9	CALL	$F99A
6F3C 3A056E	LD	A,($6E05)
6F3F FE01	CP	$01
6F41 78		LD	A,B
6F42 C0		RET	NZ

6F43 CDD370	CALL	$70D3		; A = $FF xor ($5B07)
6F46 C9		RET

6F47 DBF5	IN	A,($F5)		; ######## 8272_POLL #########
6F49 CB7F	BIT	7,A		; test bit 7 (RQM)
6F4B 28FA	JR	Z,$6F47		; if bit 7 = 0 read 8272 Status Register again
6F4D CB77	BIT	6,A		; test bit 6 (DIO, 0=receive/1=send)
6F4F C9		RET

6F50 21ADF9	LD	HL,$F9AD	; addr of BIOS routine to detect end of exec phase
6F53 E5		PUSH	HL		; saved on stack
					; ######## 8272_WR ###########
					; inputs: C = command opcode
6F54 320A6E	LD	($6E0A),A
6F57 21F8FD	LD	HL,$FDF8	; address of 8272 command args
					; ######## 8272_WR_HL ########
					; inputs: HL = address of 8272 command args
6F5A DBF5	IN	A,($F5)		; read 8272 Status Register <-----|
6F5C E610	AND	$10		; test bit 4 (FDC Busy)		  |
6F5E 2804	JR	Z,$6F64		; --->| if 8272 not busy	  |
6F60 18F8	JR	$6F5A		; --------> if 8272 busy ---> --->|
6F62 4E		LD	C,(HL)		; <-------- <--- <--- <--- <--- <---|
6F63 23		INC	HL		; inc.| 8272 arg pointer	    |
6F64 F3		DI			; <---|				    |
6F65 CD476F	CALL	$6F47		; call 8272_POLL		    |
6F68 C2DD71	JP	NZ,$71DD	; if 8272 not ready to receive	    |
6F6B 59		LD	E,C		; C has 8272 opcode		    |
6F6C 0EFD	LD	C,$FD		; 8272 Data Register		    |
6F6E ED59	OUT	(C),E		; send opcode to 8272 Data Register |
6F70 10F0	DJNZ	$6F62		; ---> ---> ---> ---> ---> ---> --->|
6F72 FB		EI
6F73 C9		RET
					; ######## 8272_RD ########
6F74 21F0FD	LD	HL,$FDF0	; 8272 cmd result storage address
6F77 0608	LD	B,$08		; max. 8 loops next (8272 commands have max 7 result bytes)
6F79 CD476F	CALL	$6F47		; call 8272_POLL <--- <--- <--- <---|
6F7C 280D	JR	Z,$6F8B		; if 8272 done sending exit --->|   |
6F7E 36FF	LD	(HL),$FF	;				|   |
6F80 36FF	LD	(HL),$FF	;				|   |	
6F82 DBFD	IN	A,($FD)		; read 8272 Data Register	|   |
6F84 77		LD	(HL),A		; store 8272 cmd result byte	|   |
6F85 23		INC	HL		; inc. result storage addr	|   |
6F86 10F1	DJNZ	$6F79		; ---> ---> ---> ---> ---> ---> --->|
6F88 C3DD71	JP	$71DD		; if 8272 still sending, error	|
6F8B 21F0FD	LD	HL,$FDF0	; <--- <--- <--- <--- <--- <----|	
6F8E 7E		LD	A,(HL)		; A = first result byte
6F8F C9		RET
					; ######## SEND SPECIFY COMMAND #########
					; uses params at DFC2-DFC5: N=2 (512 byte/sect) EOT=9 (9 sect/track) GPL=$20 DTL=$FF
6F90 3256F6	LD	($F656),A	; ($DF56) = param received in A
6F93 2A59F6	LD	HL,($F659)	; HL = $DFCA = addr of DPB #2-#7
6F96 110800	LD	DE,$0008
6F99 B7		OR	A		; test A
6F9A ED52	SBC	HL,DE		; HL = (addr of DPB #2-#7)-8
6F9C EB		EX	DE,HL		; HL = 8, DE = (addr of DPB #2-#7)-8
6F9D 21F8FD	LD	HL,$FDF8	; HL = addr of 8272 command arg#1 (head+drive)
6FA0 CB96	RES	2,(HL)		; reset head bit (set head to 0)
6FA2 010400	LD	BC,$0004
6FA5 09		ADD	HL,BC		; HL = $FDFC = addr of 8272 command arg#5 (N, nr of bytes written to a sector)
6FA6 EB		EX	DE,HL		; DE = addr of 8272 command arg#5, HL = (addr of DPB #2-#7)-8
6FA7 EDB0	LDIR			; copy 4 bytes from (addr of DPB #2-#7)-8 to addr of 8272 command arg#5
6FA9 010303	LD	BC,$0303	; B=03 for 3 command bytes, C=03 opcode for Specify command	
6FAC 18AC	JR	$6F5A		; 8272_WR_HL: Specify with HL = (addr of DPB #2-#7)-4 = $DFC6 (Step=15ms, HUT=240ms, HLT=64ms, Non-DMA)

					; ######## SEND 8272 SIS COMMAND #########
6FAE 010801	LD	BC,$0108	; B=01 for 1 command byte, C=08 opcode for Sense Int. Status
6FB1 CD5A6F	CALL	$6F5A		; 8272_WR_HL
6FB4 18BE	JR	$6F74		; 8272_RD

6FB6 CDAE6F	CALL	$6FAE		; send 8272 SIS
6FB9 FE80	CP	$80
6FBB C8		RET	Z
6FBC 18F8	JR	$6FB6
					; ######## DRIVE_READY ########
6FBE 010402	LD	BC,$0204	; B=02 for 2 command bytes, C=04 opcode for Sense Drive Status
6FC1 AF		XOR	A
6FC2 CD546F	CALL	$6F54		; call 8272_WR
6FC5 CD746F	CALL	$6F74		; call 8272_RD
6FC8 CB6F	BIT	5,A		; test bit 5 of Sense Drive Status first result byte (ST3) - Ready
6FCA C9		RET

6FCB CDBE6F	CALL	$6FBE		; call DRIVE_READY
6FCE C0		RET	NZ		; return ?if Ready?

6FCF CDD371	CALL	$71D3
6FD2 CDBE6F	CALL	$6FBE		; call DRIVE_READY <--- <--- <--- <--- <--- <-----|
6FD5 C0		RET	NZ		; return ?if Ready?				  |
					;						  |
6FD6 CD13F7	CALL	$F713		; BIOS CONST					  |
6FD9 B7		OR	A		; console char ready to read (FF) or not (00)	  |
6FDA 28F6	JR	Z,$6FD2		; if char not ready  ---> ---> ---> ---> ---> --->|
6FDC CD76F7	CALL	$F776		; BIOS CONIN
6FDF AF		XOR	A
6FE0 320400	LD	($0004),A 	; set DSK Byte to 00		================== NEEDS CHANGE FOR ROM PACKAGING ==================
6FE3 C303F6	JP	$F603		; BIOS WBOOT

6FE6 2A53F6	LD	HL,($F653)	; L=head#, H=physical sector#
6FE9 22FAFD	LD	($FDFA),HL	; ($FDFA)=head#, ($FDFB)=sector#
6FEC 7D		LD	A,L		; head#
6FED 2AF8FD	LD	HL,($FDF8)	; L=head#+drive#, H=cyl#
6FF0 CB95	RES	2,L		; L=head#0+drive#
6FF2 B7		OR	A		; test if head#=0
6FF3 2802	JR	Z,$6FF7		; skip next line if so
6FF5 CBD5	SET	2,L		; L=head#1+drive#
6FF7 3A52F6	LD	A,($F652)	; track#
6FFA BC		CP	H		; compare with cyl# in H (line 02ED)
6FFB 67		LD	H,A		; H=track#
6FFC 22F8FD	LD	($FDF8),HL	; save HL in 8272 command args #1 and #2
6FFF C8		RET	Z

7000 B7		OR	A		; check if track#=0
7001 282D	JR	Z,$7030		; if so jump --> ---> ---> ---> ---> ---> ---> ---> --->|
7003 3A5CF6	LD	A,($F65C)	; logical drive#					|
7006 FE06	CP	$06		; check if smaller than 6				|
7008 3805	JR	C,$700F		; if so jump ---> ---> ---> ---> ---> ---> ---> --->|	|
700A 21F9FD	LD	HL,$FDF9	; ($FDF9)=cyl# in 8272 args			    |	|
700D CB26	SLA	(HL)		; multiply by 2 with CY				    |	|
700F 010F03	LD	BC,$030F	; B=03 for 3 command bytes, C=0F opcode for Seek <--|	|
7012 3E01	LD	A,$01		;							|
7014 CD546F	CALL	$6F54		; 8272_WR (Send 8272 Seek command)			|
7017 3A52F6	LD	A,($F652)	; track#						|
701A 32F9FD	LD	($FDF9),A	; put in 8272 arg #2					|
701D CDAE6F	CALL	$6FAE		; send 8272 SIS <--- <--- <--- <---|			|
7020 CB6F	BIT	5,A		; test if Seek ended (bit5=1)	   |			|
7022 28F9	JR	Z,$701D		; if not, repeat 8272 SIS ---> --->|			|
7024 E650	AND	$50		; test bits 6 and 4 (=1 if other errors)		|
7026 C2E271	JP	NZ,$71E2	; if any other error, jump				|
7029 DBF5	IN	A,($F5)		; read 8272 Status Register <--- <--- <------|		|
702B E60F	AND	$0F		; test bits 0-3 (FDD0-3 in Seek Mode)	     |		|
702D C8		RET	Z		; if no FDD in Seek Mode, return	     |		|
702E 18F9	JR	$7029		; if any FDD in Seek Mode ---> ---> ---> --->|		|
					;							|
7030 3A51F6	LD	A,($F651)	; physical drv# <--- <--- <--- <--- <--- <--- <--- <----|
7033 CB4F	BIT	1,A		; test if drive 2 or 3
7035 2808	JR	Z,$703F		; if not  ---> --->|					================== NEEDS CHANGE FOR ALL DRIVES DD ==================
7037 3E02	LD	A,$02		;		   |
7039 32F9FD	LD	($FDF9),A	; set track to 02  | ($FDF9)=8272 cmd arg#2
703C CD0F70	CALL	$700F		; Seek + SIS	   |
703F AF		XOR	A		; <--- <--- <--- <-|
7040 32F9FD	LD	($FDF9),A	; set track to 00 **** arg#2 is not used by Recalibrate anyway !
7043 010702	LD	BC,$0207	; B=02 for 2 command bytes, C=07 opcode for Recalibrate
7046 F602	OR	$02		; A = $02
7048 CD546F	CALL	$6F54		; 8272_WR (Send 8272 Recalibrate command)
704B CD1D70	CALL	$701D		; send 8272 SIS
704E 0603	LD	B,$03		; 3 loops next
7050 C5		PUSH	BC		; <--- <--- <--- <--- <--- <---
7051 3A56F6	LD	A,($F656)	; A=$60 (?)
7054 F60A	OR	$0A		; A=$6A (?)
7056 4F		LD	C,A		; C=$6A opcode for Read ID (?)
7057 0602	LD	B,$02		; B=02 for 2 command bytes
7059 3E03	LD	A,$03
705B CD546F	CALL	$6F54		; 8272_WR (Send 8272 Read ID (?)
705E CD746F	CALL	$6F74		; call 8272_RD
7061 E6C0	AND	$C0
7063 C1		POP	BC
7064 2802	JR	Z,$7068
7066 10E8	DJNZ	$7050
7068 CBD5	SET	2,L
706A 23		INC	HL
706B 46		LD	B,(HL)
706C 23		INC	HL
706D 4E		LD	C,(HL)
706E 23		INC	HL
706F 70		LD	(HL),B
7070 C9		RET
				; ########### CONTINUED FROM BIOS BOOT ############
				; FC00 to FC03 represent logical drives A: to D:.
				; They initially contain values 0 ... 3 representing corresponding physical drv numbers.
				; That means initially drive 0 is drive A, drive 1 is drive B etc.
7071 2100FC	LD	HL,$FC00 ; <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <-|
7074 54		LD	D,H	;										|
7075 5D		LD	E,L	; DE = $FC00									|
7076 0604	LD	B,$04	; 4 loops next, for 4 drive numbers stored at $FC00-$FC03 (0, 1, 2, 3)		|
7078 7E		LD	A,(HL)	; A = ($FC00) = physical number for drive A: <--- <--- <--- <---|		|
7079 32F8FD	LD	($FDF8),A ; ($FDF8) = physical number of drive found READY		|		|
707C D9		EXX		;								|		|
707D CDBE6F	CALL	$6FBE	; send a Sense Drive Status command to drive number at $FDF8 and test if READY	|
7080 D9		EXX		;								|		|
7081 2005	JR	NZ,$7088 ; If drive READY jump -> ---> ---> --->|			|		|
7083 23		INC	HL	; if not, increment drv# pointer	|			|		|
7084 10F2	DJNZ	$7078	; and repeat loop -----> ---> ---> ---> ---> ---> ---> ---> --->|		|
7086 18E9	JR	$7071	; --> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> --->|
7088 7E		LD	A,(HL)	; <--- <--- <--- <--- <--- <--- <--- <--|	A = physical drv# found ready
7089 3600	LD	(HL),$00 ; change physical drv# for logical drv found ready to 0
708B 12		LD	(DE),A	; change physical drv# for logical drv 0 (drive A: at $FC00) from 0 to drv# found ready
708C 210400	LD	HL,$0004
708F 19		ADD	HL,DE	; HL = $FC04 = address of logical drive E:
7090 77		LD	(HL),A	; set physical number for logical drive E: to physical drv# found ready
7091 23		INC	HL	; HL = $FC05 = address of logical drive F:
7092 77		LD	(HL),A	; set physical number for logical drive F: to physical drv# found ready
7093 5D		LD	E,L	; DE = $FC05 = address of logical drive F:
7094 23		INC	HL	; HL = $FC06 = address of logical drive G:
7095 77		LD	(HL),A	; set physical number for logical drive G: to physical drv# found ready
7096 23		INC	HL	; HL = $FC07 = address of logical drive H:
7097 56		LD	D,(HL)	; D = physical drv# of logical drive H:, E = $05
7098 77		LD	(HL),A	; set physical number for logical drive H: to physical drv# found ready
7099 C9		RET		; this will make a jump to $7230 (see line FE55 in BIOS BOOT where we came from)
				; where the CP/M startup message will be printed

				; ############# EXECUTED AFTER PRINTING STARTUP MESSAGE ##############
709A FB		EI
709B 3AF8FD	LD	A,($FDF8) ; 8272 cmd arg#1: head+drive
709E E603	AND	$03	; keep only the drive bits
70A0 F630	OR	$30	; add to '0' char code
70A2 329D72	LD	($729D),A ; save instead of '0' in "Insert disk E in drive 0"
70A5 CB4F	BIT	1,A	; test if drv# = 2 or 3
70A7 3E00	LD	A,$00
70A9 21EAF6	LD	HL,$F6EA ; $F6EA = DPB address for drv# 0 and 1
70AC 2805	JR	Z,$70B3	; if drv# = 0 or 1 jump  ----> ---> --->|			================== NEEDS CHANGE FOR ALL DRIVES DD ==================
70AE F640	OR	$40	; A = $40				|
70B0 21CAF6	LD	HL,$F6CA ; $F6CA = DPB address for drv# 2 and 3 |
70B3 2259F6	LD	($F659),HL ; <--- <--- <--- <--- <--- <--- <----|
				   ; ($F659_$F65A) = $F6EA (if drv# = 0 or 1), ($F659_$F65A) = $F6CA (if drv# = 2 or 3)
				   ; MEANING: store address of DPB (in use for drv# stored at ($FDF8)) at ($F659_$F65A)
70B6 224AFB	LD	($FB4A),HL ; ($FB4A_$FB4B) = $F6EA (if drv# = 0 or 1), ($FB4A_$FB4B) = $F6CA (if drv# = 2 or 3)
				   ; ($FB4A_$FB4B) = storage location of DPB in DPH#4
				   ; MEANING: assign DPB of proper density to DPH of logical drive E: store address of DPB DD (in use for drv# stored at ($FDF8)) in DPH#4
70B9 2B		DEC	HL
70BA 56		LD	D,(HL)
70BB 2B		DEC	HL
70BC 5E		LD	E,(HL)	; DE = ($F6E8_$F6E9) if drv# = 0 or 1, DE = ($F6C8_$F6C9) if drv# = 2 or 3
70BD ED5340FB	LD	($FB40),DE ; ($FB40_$FB41) = ($F6E8_$F6E9) if drv# = 0 or 1, or ($F6C8_$F6C9) if drv# = 2 or 3
70C1 CD906F	CALL	$6F90	; send Specify command to 8272 with args at $F6E6/$F6C6
70C4 CD3F70	CALL	$703F	; Send Read ID on track 0 and get results at $FDF0-$FDF6
70C7 C5		PUSH	BC	; BC = RN at Read ID								@@@@@@@@@@@@@ CP/M PROTECTION CODE @@@@@@@@@@@@@
70C8 F3		DI
70C9 D9		EXX		; ### this pairs up with EXX at $7230 previously executed ###
70CA E1		POP	HL	; HL = RN at Read ID								@@@@@@@@@@@@@ CP/M PROTECTION CODE @@@@@@@@@@@@@
70CB B7		OR	A	; A = $00 if no errors from Read ID
70CC ED52	SBC	HL,DE	; compare CP/M PROTECTION CODE with DE
70CE C9		RET		; RET whether identical or not, to $F603 (pushed on stack at $FE53 in BIOS BOOT) @@@@@@@@@@@@@ this opcode already changed from ($C8) to $C9 to remove protection
70CF E1		POP	HL	; HL = $F603 (pushed on stack at $FE53 in BIOS BOOT)
70D0 2E00	LD	L,$00	; HL = $F600 (address of BIOS BOOT in BIOS function jump table, but that JP instruction was changed to JP CPM_TO_COBRA)
70D2 E9		JP	(HL)	; jump to CPM_TO_COBRA, back to BOOT ROM

70D3 21076E	LD	HL,$6E07
70D6 F6FF	OR	$FF
70D8 AE		XOR	(HL)
70D9 C0		RET	NZ

70DA 77		LD	(HL),A
70DB F6FF	OR	$FF
70DD 32096E	LD	($6E09),A
70E0 3A56F6	LD	A,($F656)
70E3 F605	OR	$05
70E5 2186F9	LD	HL,$F986
70E8 CBC6	SET	0,(HL)
70EA 1811	JR	$70FD
70EC AF		XOR	A
70ED 32036E	LD	($6E03),A
70F0 32096E	LD	($6E09),A
70F3 3A56F6	LD	A,($F656)
70F6 F606	OR	$06
70F8 2186F9	LD	HL,$F986
70FB CB86	RES	0,(HL)
70FD 4F		LD	C,A
70FE E607	AND	$07
7100 320A6E	LD	($6E0A),A
7103 060A	LD	B,$0A
7105 C5		PUSH	BC
7106 CD5871	CALL	$7158
7109 AF		XOR	A
710A 325BF6	LD	($F65B),A
710D CD39F6	CALL	$F639
7110 2185F9	LD	HL,$F985
7113 2298FD	LD	($FD98),HL
7116 218AF9	LD	HL,$F98A
7119 229CFD	LD	($FD9C),HL
711C 0609	LD	B,$09
711E 3A0A6E	LD	A,($6E0A)
7121 CD506F	CALL	$6F50
7124 2187F9	LD	HL,$F987
7127 2298FD	LD	($FD98),HL
712A 229CFD	LD	($FD9C),HL
712D CD5871	CALL	$7158
7130 F6FF	OR	$FF
7132 CD39F6	CALL	$F639
7135 CD746F	CALL	$6F74
7138 C1		POP	BC
7139 3A5BF6	LD	A,($F65B)
713C B7		OR	A
713D 283D	JR	Z,$717C
713F 7E		LD	A,(HL)
7140 23		INC	HL
7141 E6D8	AND	$D8
7143 2037	JR	NZ,$717C
7145 23		INC	HL
7146 7E		LD	A,(HL)
7147 CBB7	RES	6,A
7149 2B		DEC	HL
714A B6		OR	(HL)
714B 202F	JR	NZ,$717C
714D 3A096E	LD	A,($6E09)
7150 B7		OR	A
7151 C8		RET	Z

7152 0600	LD	B,$00
7154 10FE	DJNZ	$7154
7156 78		LD	A,B
7157 C9		RET

7158 F3		DI
7159 3EFF	LD	A,$FF
715B D3E3	OUT	($E3),A
715D 3E01	LD	A,$01
715F D3E3	OUT	($E3),A
7161 3E7F	LD	A,$7F
7163 D3EB	OUT	($EB),A
7165 3A56F6	LD	A,($F656)
7168 EE40	XOR	$40
716A D3EB	OUT	($EB),A
716C 3EFF	LD	A,$FF
716E D3F3	OUT	($F3),A
7170 3E02	LD	A,$02
7172 D3F3	OUT	($F3),A
7174 C9		RET

7175 C5		PUSH	BC
7176 CDB468	CALL	$68B4
7179 C1		POP	BC
717A 1889	JR	$7105
717C 10F7	DJNZ	$7175
717E D1		POP	DE
717F CB66	BIT	4,(HL)
7181 11FE72	LD	DE,$72FE
7184 2063	JR	NZ,$71E9
7186 CB7E	BIT	7,(HL)
7188 110E73	LD	DE,$730E
718B 205C	JR	NZ,$71E9
718D CB4E	BIT	1,(HL)
718F 110673	LD	DE,$7306
7192 2055	JR	NZ,$71E9
7194 CB46	BIT	0,(HL)
7196 111B73	LD	DE,$731B
7199 013673	LD	BC,$7336
719C 2013	JR	NZ,$71B1
719E CB6E	BIT	5,(HL)
71A0 112873	LD	DE,$7328
71A3 2016	JR	NZ,$71BB
71A5 CB56	BIT	2,(HL)
71A7 112C73	LD	DE,$732C
71AA 2016	JR	NZ,$71C2
71AC 11F572	LD	DE,$72F5
71AF 1838	JR	$71E9
71B1 23		INC	HL
71B2 CB46	BIT	0,(HL)
71B4 2836	JR	Z,$71EC
71B6 014373	LD	BC,$7343
71B9 1831	JR	$71EC
71BB 23		INC	HL
71BC CB6E	BIT	5,(HL)
71BE 282C	JR	Z,$71EC
71C0 18F4	JR	$71B6
71C2 23		INC	HL
71C3 CB6E	BIT	5,(HL)
71C5 015273	LD	BC,$7352
71C8 2022	JR	NZ,$71EC
71CA CB4E	BIT	1,(HL)
71CC 015F73	LD	BC,$735F
71CF 201B	JR	NZ,$71EC
71D1 1816	JR	$71E9
71D3 11DD72	LD	DE,$72DD
71D6 1811	JR	$71E9
71D8 11ED72	LD	DE,$72ED
71DB 180C	JR	$71E9
71DD 11D572	LD	DE,$72D5
71E0 1803	JR	$71E5
71E2 11D972	LD	DE,$72D9
71E5 0103F6	LD	BC,$F603
71E8 C5		PUSH	BC
71E9 010000	LD	BC,$0000
71EC C5		PUSH	BC
71ED D5		PUSH	DE
71EE 3E30	LD	A,$30
71F0 21F8FD	LD	HL,$FDF8
71F3 B6		OR	(HL)
71F4 CB97	RES	2,A
71F6 117472	LD	DE,$7274
71F9 12		LD	(DE),A
71FA 13		INC	DE
71FB CD4772	CALL	$7247
71FE 13		INC	DE
71FF 13		INC	DE
7200 23		INC	HL
7201 3E30	LD	A,$30
7203 B6		OR	(HL)
7204 12		LD	(DE),A
7205 CD4772	CALL	$7247
7208 216672	LD	HL,$7266
720B CD3B72	CALL	$723B
720E 57		LD	D,A
720F 3A0A6E	LD	A,($6E0A)
7212 87		ADD	A,A
7213 5F		LD	E,A
7214 21A372	LD	HL,$72A3
7217 19		ADD	HL,DE
7218 5E		LD	E,(HL)
7219 23		INC	HL
721A 56		LD	D,(HL)
721B EB		EX	DE,HL
721C CD3B72	CALL	$723B
721F CD3872	CALL	$7238
7222 E1		POP	HL
7223 CD3B72	CALL	$723B
7226 E1		POP	HL
7227 B4		OR	H
7228 C43B72	CALL	NZ,$723B
722B CD3872	CALL	$7238
722E 3C		INC	A
722F C9		RET

7230 D9		EXX
7231 2100FE	LD	HL,$FE00
7234 CD3B72	CALL	$723B
7237 E9		JP	(HL)
7238 21A072	LD	HL,$72A0
723B 7E		LD	A,(HL)
723C B7		OR	A
723D C8		RET	Z

723E 4F		LD	C,A
723F E5		PUSH	HL
7240 CD85F7	CALL	$F785
7243 E1		POP	HL
7244 23		INC	HL
7245 18F4	JR	$723B
7247 3E30	LD	A,$30
7249 4F		LD	C,A
724A 13		INC	DE
724B 13		INC	DE
724C 23		INC	HL
724D 46		LD	B,(HL)
724E 04		INC	B
724F 3D		DEC	A
7250 3C		INC	A
7251 FE3A	CP	$3A
7253 3803	JR	C,$7258
7255 E630	AND	$30
7257 0C		INC	C
7258 10F6	DJNZ	$7250
725A EB		EX	DE,HL
725B 71		LD	(HL),C
725C 23		INC	HL
725D 77		LD	(HL),A
725E EB		EX	DE,HL
725F C9		RET

7260 F9		DEFB	$F9
7261 16		DEFB	$16
7262 00		DEFB	$00
7263 00		DEFB	$00
7264 00		DEFB	$00
7265 1A		DEFB	$1A
7266 07		DEFB	$07
7267 0D		DEFB	$0D
7268 0A		DEFB	$0A
7269 0E		DEFB	$0E
726A 20		DEFB	$20
726B 45		DEFB	$45
726C 72		DEFB	$72
726D 72		DEFB	$72
726E 6F		DEFB	$6F
726F 72		DEFB	$72
7270 20		DEFB	$20
7271 6F		DEFB	$6F
7272 6E		DEFB	$6E
7273 20		DEFB	$20
7274 30		DEFB	$30
7275 3A		DEFB	$3A
7276 7C		DEFB	$7C
7277 30		DEFB	$30
7278 30		DEFB	$30
7279 7C		DEFB	$7C
727A 30		DEFB	$30
727B 7C		DEFB	$7C
727C 30		DEFB	$30
727D 30		DEFB	$30
727E 7C		DEFB	$7C
727F 0F		DEFB	$0F
7280 20		DEFB	$20
7281 00		DEFB	$00
7282 0D		DEFB	$0D
7283 0A		DEFB	$0A
7284 0E		DEFB	$0E
7285 20		DEFB	$20
7286 49		DEFB	$49
7287 6E		DEFB	$6E
7288 73		DEFB	$73
7289 65		DEFB	$65
728A 72		DEFB	$72
728B 74		DEFB	$74
728C 20		DEFB	$20
728D 64		DEFB	$64
728E 69		DEFB	$69
728F 73		DEFB	$73
7290 6B		DEFB	$6B
7291 20		DEFB	$20
7292 45		DEFB	$45
7293 20		DEFB	$20
7294 69		DEFB	$69
7295 6E		DEFB	$6E
7296 20		DEFB	$20
7297 64		DEFB	$64
7298 72		DEFB	$72
7299 69		DEFB	$69
729A 76		DEFB	$76
729B 65		DEFB	$65
729C 20		DEFB	$20
729D 30		DEFB	$30
729E 3A		DEFB	$3A
729F 0F		DEFB	$0F
72A0 0D		DEFB	$0D
72A1 0A		DEFB	$0A
72A2 00		DEFB	$00
72A3 A2		DEFB	$A2
72A4 72		DEFB	$72
72A5 B1		DEFB	$B1
72A6 72		DEFB	$72
72A7 B6		DEFB	$B6
72A8 72		DEFB	$72
72A9 C2		DEFB	$C2
72AA 72		DEFB	$72
72AB A2		DEFB	$A2
72AC 72		DEFB	$72
72AD CA		DEFB	$CA
72AE 72		DEFB	$72
72AF D0		DEFB	$D0
72B0 72		DEFB	$72
72B1 73		DEFB	$73
72B2 65		DEFB	$65
72B3 65		DEFB	$65
72B4 6B		DEFB	$6B
72B5 00		DEFB	$00
72B6 72		DEFB	$72
72B7 65		DEFB	$65
72B8 63		DEFB	$63
72B9 61		DEFB	$61
72BA 6C		DEFB	$6C
72BB 69		DEFB	$69
72BC 62		DEFB	$62
72BD 72		DEFB	$72
72BE 61		DEFB	$61
72BF 74		DEFB	$74
72C0 65		DEFB	$65
72C1 00		DEFB	$00
72C2 72		DEFB	$72
72C3 65		DEFB	$65
72C4 61		DEFB	$61
72C5 64		DEFB	$64
72C6 20		DEFB	$20
72C7 69		DEFB	$69
72C8 64		DEFB	$64
72C9 00		DEFB	$00
72CA 77		DEFB	$77
72CB 72		DEFB	$72
72CC 69		DEFB	$69
72CD 74		DEFB	$74
72CE 65		DEFB	$65
72CF 00		DEFB	$00
72D0 72		DEFB	$72
72D1 65		DEFB	$65
72D2 61		DEFB	$61
72D3 64		DEFB	$64
72D4 00		DEFB	$00
72D5 66		DEFB	$66
72D6 64		DEFB	$64
72D7 63		DEFB	$63
72D8 00		DEFB	$00
72D9 66		DEFB	$66
72DA 64		DEFB	$64
72DB 64		DEFB	$64
72DC 00		DEFB	$00
72DD 64		DEFB	$64
72DE 72		DEFB	$72
72DF 69		DEFB	$69
72E0 76		DEFB	$76
72E1 65		DEFB	$65
72E2 20		DEFB	$20
72E3 6E		DEFB	$6E
72E4 6F		DEFB	$6F
72E5 74		DEFB	$74
72E6 20		DEFB	$20
72E7 72		DEFB	$72
72E8 65		DEFB	$65
72E9 61		DEFB	$61
72EA 64		DEFB	$64
72EB 79		DEFB	$79
72EC 00		DEFB	$00
72ED 64		DEFB	$64
72EE 65		DEFB	$65
72EF 6E		DEFB	$6E
72F0 73		DEFB	$73
72F1 69		DEFB	$69
72F2 74		DEFB	$74
72F3 79		DEFB	$79
72F4 00		DEFB	$00
72F5 61		DEFB	$61
72F6 62		DEFB	$62
72F7 6E		DEFB	$6E
72F8 6F		DEFB	$6F
72F9 72		DEFB	$72
72FA 6D		DEFB	$6D
72FB 61		DEFB	$61
72FC 6C		DEFB	$6C
72FD 00		DEFB	$00
72FE 6F		DEFB	$6F
72FF 76		DEFB	$76
7300 65		DEFB	$65
7301 72		DEFB	$72
7302 72		DEFB	$72
7303 75		DEFB	$75
7304 6E		DEFB	$6E
7305 00		DEFB	$00
7306 70		DEFB	$70
7307 72		DEFB	$72
7308 6F		DEFB	$6F
7309 74		DEFB	$74
730A 65		DEFB	$65
730B 63		DEFB	$63
730C 74		DEFB	$74
730D 00		DEFB	$00
730E 65		DEFB	$65
730F 6E		DEFB	$6E
7310 64		DEFB	$64
7311 20		DEFB	$20
7312 6F		DEFB	$6F
7313 66		DEFB	$66
7314 20		DEFB	$20
7315 74		DEFB	$74
7316 72		DEFB	$72
7317 61		DEFB	$61
7318 63		DEFB	$63
7319 6B		DEFB	$6B
731A 00		DEFB	$00
731B 61		DEFB	$61
731C 64		DEFB	$64
731D 64		DEFB	$64
731E 72		DEFB	$72
731F 65		DEFB	$65
7320 73		DEFB	$73
7321 73		DEFB	$73
7322 20		DEFB	$20
7323 6D		DEFB	$6D
7324 61		DEFB	$61
7325 72		DEFB	$72
7326 6B		DEFB	$6B
7327 00		DEFB	$00
7328 63		DEFB	$63
7329 72		DEFB	$72
732A 63		DEFB	$63
732B 00		DEFB	$00
732C 6E		DEFB	$6E
732D 6F		DEFB	$6F
732E 74		DEFB	$74
732F 20		DEFB	$20
7330 66		DEFB	$66
7331 6F		DEFB	$6F
7332 75		DEFB	$75
7333 6E		DEFB	$6E
7334 64		DEFB	$64
7335 00		DEFB	$00
7336 20		DEFB	$20
7337 69		DEFB	$69
7338 6E		DEFB	$6E
7339 20		DEFB	$20
733A 69		DEFB	$69
733B 64		DEFB	$64
733C 20		DEFB	$20
733D 66		DEFB	$66
733E 69		DEFB	$69
733F 65		DEFB	$65
7340 6C		DEFB	$6C
7341 64		DEFB	$64
7342 00		DEFB	$00
7343 20		DEFB	$20
7344 69		DEFB	$69
7345 6E		DEFB	$6E
7346 20		DEFB	$20
7347 64		DEFB	$64
7348 61		DEFB	$61
7349 74		DEFB	$74
734A 61		DEFB	$61
734B 20		DEFB	$20
734C 66		DEFB	$66
734D 69		DEFB	$69
734E 65		DEFB	$65
734F 6C		DEFB	$6C
7350 64		DEFB	$64
7351 00		DEFB	$00
7352 20		DEFB	$20
7353 77		DEFB	$77
7354 72		DEFB	$72
7355 6F		DEFB	$6F
7356 6E		DEFB	$6E
7357 67		DEFB	$67
7358 20		DEFB	$20
7359 74		DEFB	$74
735A 72		DEFB	$72
735B 61		DEFB	$61
735C 63		DEFB	$63
735D 6B		DEFB	$6B
735E 00		DEFB	$00
735F 20		DEFB	$20
7360 62		DEFB	$62
7361 61		DEFB	$61
7362 64		DEFB	$64
7363 20		DEFB	$20
7364 74		DEFB	$74
7365 72		DEFB	$72
7366 61		DEFB	$61
7367 63		DEFB	$63
7368 6B		DEFB	$6B
7369 00		DEFB	$00
736A 00		DEFB	$00
736B 00		DEFB	$00
736C 00		DEFB	$00
736D 00		DEFB	$00
736E 00		DEFB	$00
736F 00		DEFB	$00

7370 CB4E	BIT	1,(HL)
7372 C0		RET	NZ

7373 3A0C66	LD	A,($660C)
7376 CB56	BIT	2,(HL)
7378 2815	JR	Z,$738F
737A CB5E	BIT	3,(HL)
737C 2825	JR	Z,$73A3
737E FE14	CP	$14
7380 3803	JR	C,$7385
7382 FE3C	CP	$3C
7384 D8		RET	C

7385 CB9E	RES	3,(HL)
7387 FE28	CP	$28
7389 3014	JR	NC,$739F
738B CBA6	RES	4,(HL)
738D 182A	JR	$73B9
738F CB5E	BIT	3,(HL)
7391 20F2	JR	NZ,$7385
7393 CB66	BIT	4,(HL)
7395 2805	JR	Z,$739C
7397 FE28	CP	$28
7399 D0		RET	NC

739A 18EF	JR	$738B
739C FE28	CP	$28
739E D8		RET	C

739F CBE6	SET	4,(HL)
73A1 1816	JR	$73B9
73A3 CB66	BIT	4,(HL)
73A5 2005	JR	NZ,$73AC
73A7 FE28	CP	$28
73A9 D8		RET	C

73AA 1803	JR	$73AF
73AC FE28	CP	$28
73AE D0		RET	NC

73AF FE14	CP	$14
73B1 38D2	JR	C,$7385
73B3 FE3C	CP	$3C
73B5 30CE	JR	NC,$7385
73B7 CBDE	SET	3,(HL)
73B9 C35866	JP	$6658
73BC 78		LD	A,B
73BD E601	AND	$01
73BF EE00	XOR	$00
73C1 C8		RET	Z

73C2 C31176	JP	$7611
73C5 00		NOP
73C6 00		NOP
73C7 00		NOP
73C8 00		NOP
73C9 0E14	LD	C,$14
73CB E608	AND	$08
73CD C0		RET	NZ

73CE 0E28	LD	C,$28
73D0 C9		RET

73D1 2143F6	LD	HL,$F643
73D4 79		LD	A,C
73D5 E607	AND	$07
73D7 4F		LD	C,A
73D8 78		LD	A,B
73D9 FE01	CP	$01
73DB 3817	JR	C,$73F4
73DD 281B	JR	Z,$73FA
73DF CB91	RES	2,C
73E1 CB89	RES	1,C
73E3 FE03	CP	$03
73E5 381D	JR	C,$7404
73E7 2823	JR	Z,$740C
73E9 215E78	LD	HL,$785E
73EC FE05	CP	$05
73EE 3022	JR	NC,$7412
73F0 3EFE	LD	A,$FE
73F2 1802	JR	$73F6
73F4 3EF8	LD	A,$F8
73F6 A6		AND	(HL)
73F7 B1		OR	C
73F8 77		LD	(HL),A
73F9 C9		RET

73FA 3EC7	LD	A,$C7
73FC CB01	RLC	C
73FE CB01	RLC	C
7400 CB01	RLC	C
7402 18F2	JR	$73F6
7404 3EBF	LD	A,$BF
7406 CB09	RRC	C
7408 CB09	RRC	C
740A 18EA	JR	$73F6
740C 3E7F	LD	A,$7F
740E CB09	RRC	C
7410 18E4	JR	$73F6
7412 C0		RET	NZ

7413 3EFB	LD	A,$FB
7415 18E7	JR	$73FE
7417 215E78	LD	HL,$785E
741A 3A1066	LD	A,($6610)
741D CB7F	BIT	7,A
741F CB8E	RES	1,(HL)
7421 C8		RET	Z

7422 CBCE	SET	1,(HL)
7424 C9		RET

7425 3EBF	LD	A,$BF
7427 90		SUB	B
7428 DAF074	JP	C,$74F0
742B 47		LD	B,A
742C A7		AND	A
742D 1F		RRA
742E 37		SCF
742F 1F		RRA
7430 A7		AND	A
7431 1F		RRA
7432 A8		XOR	B
7433 E6F8	AND	$F8
7435 A8		XOR	B
7436 67		LD	H,A
7437 79		LD	A,C
7438 07		RLCA
7439 07		RLCA
743A 07		RLCA
743B A8		XOR	B
743C E6C7	AND	$C7
743E A8		XOR	B
743F 07		RLCA
7440 07		RLCA
7441 6F		LD	L,A
7442 79		LD	A,C
7443 E607	AND	$07
7445 C9		RET

7446 CD2574	CALL	$7425
7449 5F		LD	E,A
744A 1600	LD	D,$00
744C 44		LD	B,H
744D 4D		LD	C,L
744E C9		RET

744F CD2574	CALL	$7425
7452 47		LD	B,A
7453 04		INC	B
7454 7E		LD	A,(HL)
7455 07		RLCA
7456 10FD	DJNZ	$7455
7458 E601	AND	$01
745A 4F		LD	C,A
745B C9		RET

745C CD1774	CALL	$7417
745F ED435C78	LD	($785C),BC
7463 CD2574	CALL	$7425
7466 47		LD	B,A
7467 04		INC	B
7468 3EFE	LD	A,$FE
746A 0F		RRCA
746B 10FD	DJNZ	$746A
746D 47		LD	B,A
746E 3A5E78	LD	A,($785E)
7471 4F		LD	C,A
7472 7E		LD	A,(HL)
7473 CB41	BIT	0,C
7475 2001	JR	NZ,$7478
7477 A0		AND	B
7478 CB49	BIT	1,C
747A 2002	JR	NZ,$747E
747C A8		XOR	B
747D 2F		CPL
747E 77		LD	(HL),A
747F 7C		LD	A,H
7480 0F		RRCA
7481 0F		RRCA
7482 0F		RRCA
7483 E603	AND	$03
7485 F658	OR	$58
7487 67		LD	H,A
7488 3A5E78	LD	A,($785E)
748B CB57	BIT	2,A
748D C8		RET	Z

748E 3A43F6	LD	A,($F643)
7491 77		LD	(HL),A
7492 C9		RET

7493 C5		PUSH	BC
7494 D5		PUSH	DE
7495 CD5C74	CALL	$745C
7498 D1		POP	DE
7499 C1		POP	BC
749A 7A		LD	A,D
749B 90		SUB	B
749C 1601	LD	D,$01
749E 3004	JR	NC,$74A4
74A0 16FF	LD	D,$FF
74A2 2F		CPL
74A3 3C		INC	A
74A4 47		LD	B,A
74A5 7B		LD	A,E
74A6 91		SUB	C
74A7 1E01	LD	E,$01
74A9 3004	JR	NC,$74AF
74AB 1EFF	LD	E,$FF
74AD 2F		CPL
74AE 3C		INC	A
74AF 4F		LD	C,A
74B0 79		LD	A,C
74B1 B8		CP	B
74B2 3006	JR	NC,$74BA
74B4 69		LD	L,C
74B5 D5		PUSH	DE
74B6 AF		XOR	A
74B7 5F		LD	E,A
74B8 1808	JR	$74C2
74BA B1		OR	C
74BB C8		RET	Z

74BC 00		NOP
74BD 68		LD	L,B
74BE 41		LD	B,C
74BF D5		PUSH	DE
74C0 1600	LD	D,$00
74C2 60		LD	H,B
74C3 78		LD	A,B
74C4 1F		RRA
74C5 85		ADD	A,L
74C6 3803	JR	C,$74CB
74C8 BC		CP	H
74C9 3807	JR	C,$74D2
74CB 94		SUB	H
74CC 4F		LD	C,A
74CD D9		EXX
74CE C1		POP	BC
74CF C5		PUSH	BC
74D0 1804	JR	$74D6
74D2 4F		LD	C,A
74D3 D5		PUSH	DE
74D4 D9		EXX
74D5 C1		POP	BC
74D6 2A5C78	LD	HL,($785C)
74D9 78		LD	A,B
74DA 84		ADD	A,H
74DB 47		LD	B,A
74DC 79		LD	A,C
74DD 3C		INC	A
74DE 85		ADD	A,L
74DF 380D	JR	C,$74EE
74E1 280D	JR	Z,$74F0
74E3 3D		DEC	A
74E4 4F		LD	C,A
74E5 CD5F74	CALL	$745F
74E8 D9		EXX
74E9 79		LD	A,C
74EA 10D9	DJNZ	$74C5
74EC D1		POP	DE
74ED C9		RET

74EE 28F3	JR	Z,$74E3
74F0 AF		XOR	A
74F1 325C78	LD	($785C),A
74F4 325D78	LD	($785D),A
74F7 C3EF62	JP	$62EF
74FA 3A43F6	LD	A,($F643)
74FD 21FF5A	LD	HL,$5AFF
7500 11FE5A	LD	DE,$5AFE
7503 010003	LD	BC,$0300
7506 77		LD	(HL),A
7507 EDB8	LDDR
7509 3A1066	LD	A,($6610)
750C E680	AND	$80
750E 2802	JR	Z,$7512
7510 3EFF	LD	A,$FF
7512 01FF17	LD	BC,$17FF
7515 77		LD	(HL),A
7516 EDB8	LDDR
7518 C9		RET

7519 C9		RET

751A CD1774	CALL	$7417
751D C3B074	JP	$74B0
7520 D5		PUSH	DE
7521 3EBF	LD	A,$BF
7523 90		SUB	B
7524 3806	JR	C,$752C
7526 CD2B74	CALL	$742B
7529 CD6674	CALL	$7466
752C D1		POP	DE
752D C9		RET

752E CD1774	CALL	$7417
7531 AF		XOR	A
7532 57		LD	D,A
7533 B3		OR	E
7534 CA5C74	JP	Z,$745C
7537 C5		PUSH	BC
7538 D5		PUSH	DE
7539 D9		EXX
753A C1		POP	BC
753B 110000	LD	DE,$0000
753E D9		EXX
753F 79		LD	A,C
7540 83		ADD	A,E
7541 3806	JR	C,$7549
7543 4F		LD	C,A
7544 CD2075	CALL	$7520
7547 C1		POP	BC
7548 C5		PUSH	BC
7549 79		LD	A,C
754A 93		SUB	E
754B 3806	JR	C,$7553
754D 4F		LD	C,A
754E CD2075	CALL	$7520
7551 C1		POP	BC
7552 C5		PUSH	BC
7553 78		LD	A,B
7554 83		ADD	A,E
7555 3806	JR	C,$755D
7557 47		LD	B,A
7558 CD2075	CALL	$7520
755B C1		POP	BC
755C C5		PUSH	BC
755D 78		LD	A,B
755E 93		SUB	E
755F 3806	JR	C,$7567
7561 47		LD	B,A
7562 CD2075	CALL	$7520
7565 C1		POP	BC
7566 C5		PUSH	BC
7567 D9		EXX
7568 04		INC	B
7569 68		LD	L,B
756A 2600	LD	H,$00
756C 29		ADD	HL,HL
756D 23		INC	HL
756E 19		ADD	HL,DE
756F EB		EX	DE,HL
7570 CB7A	BIT	7,D
7572 200E	JR	NZ,$7582
7574 7A		LD	A,D
7575 B3		OR	E
7576 280A	JR	Z,$7582
7578 0D		DEC	C
7579 2600	LD	H,$00
757B 69		LD	L,C
757C 29		ADD	HL,HL
757D EB		EX	DE,HL
757E 37		SCF
757F ED52	SBC	HL,DE
7581 EB		EX	DE,HL
7582 C5		PUSH	BC
7583 D9		EXX
7584 D1		POP	DE
7585 C1		POP	BC
7586 C5		PUSH	BC
7587 7A		LD	A,D
7588 BB		CP	E
7589 3031	JR	NC,$75BC
758B CD9675	CALL	$7596
758E 7A		LD	A,D
758F 53		LD	D,E
7590 5F		LD	E,A
7591 CD9675	CALL	$7596
7594 18D1	JR	$7567
7596 C5		PUSH	BC
7597 78		LD	A,B
7598 82		ADD	A,D
7599 3806	JR	C,$75A1
759B 47		LD	B,A
759C CDAB75	CALL	$75AB
759F C1		POP	BC
75A0 C5		PUSH	BC
75A1 78		LD	A,B
75A2 92		SUB	D
75A3 3804	JR	C,$75A9
75A5 47		LD	B,A
75A6 CDAB75	CALL	$75AB
75A9 C1		POP	BC
75AA C9		RET

75AB C5		PUSH	BC
75AC 79		LD	A,C
75AD 83		ADD	A,E
75AE 3804	JR	C,$75B4
75B0 4F		LD	C,A
75B1 CD2075	CALL	$7520
75B4 C1		POP	BC
75B5 79		LD	A,C
75B6 93		SUB	E
75B7 D8		RET	C

75B8 4F		LD	C,A
75B9 C32075	JP	$7520
75BC 7A		LD	A,D
75BD BB		CP	E
75BE CC9675	CALL	Z,$7596
75C1 C1		POP	BC
75C2 C9		RET

75C3 0604	LD	B,$04
75C5 3A1566	LD	A,($6615)
75C8 B7		OR	A
75C9 2802	JR	Z,$75CD
75CB 3EFF	LD	A,$FF
75CD 4F		LD	C,A
75CE 3A0E66	LD	A,($660E)
75D1 E601	AND	$01
75D3 2014	JR	NZ,$75E9
75D5 C5		PUSH	BC
75D6 7E		LD	A,(HL)
75D7 23		INC	HL
75D8 A9		XOR	C
75D9 47		LD	B,A
75DA CDFD75	CALL	$75FD
75DD 78		LD	A,B
75DE 17		RLA
75DF 17		RLA
75E0 17		RLA
75E1 17		RLA
75E2 CDFD75	CALL	$75FD
75E5 C1		POP	BC
75E6 10ED	DJNZ	$75D5
75E8 C9		RET

75E9 C5		PUSH	BC
75EA 7E		LD	A,(HL)
75EB 23		INC	HL
75EC A9		XOR	C
75ED 47		LD	B,A
75EE 1F		RRA
75EF 1F		RRA
75F0 1F		RRA
75F1 1F		RRA
75F2 CD0776	CALL	$7607
75F5 78		LD	A,B
75F6 CD0776	CALL	$7607
75F9 C1		POP	BC
75FA 10ED	DJNZ	$75E9
75FC C9		RET

75FD E6F0	AND	$F0
75FF 4F		LD	C,A
7600 1A		LD	A,(DE)
7601 E60F	AND	$0F
7603 B1		OR	C
7604 12		LD	(DE),A
7605 14		INC	D
7606 C9		RET

7607 E60F	AND	$0F
7609 4F		LD	C,A
760A 1A		LD	A,(DE)
760B E6F0	AND	$F0
760D B1		OR	C
760E 12		LD	(DE),A
760F 14		INC	D
7610 C9		RET

7611 113176	LD	DE,$7631
7614 21B066	LD	HL,$66B0
7617 CD2376	CALL	$7623
761A 217073	LD	HL,$7370
761D CD2376	CALL	$7623
7620 C35866	JP	$6658
7623 0600	LD	B,$00
7625 1A		LD	A,(DE)
7626 13		INC	DE
7627 B7		OR	A
7628 4F		LD	C,A
7629 C8		RET	Z

762A 1A		LD	A,(DE)
762B 13		INC	DE
762C 09		ADD	HL,BC
762D AE		XOR	(HL)
762E 77		LD	(HL),A
762F 18F4	JR	$7625

7631 04		DEFB	$04
7632 1C		DEFB	$1C
7633 02		DEFB	$02
7634 1C		DEFB	$1C
7635 02		DEFB	$02
7636 68		DEFB	$68
7637 02		DEFB	$02
7638 FE		DEFB	$FE
7639 01		DEFB	$01
763A 39		DEFB	$39
763B 20		DEFB	$20
763C 29		DEFB	$29
763D 02		DEFB	$02
763E 80		DEFB	$80
763F 01		DEFB	$01
7640 15		DEFB	$15
7641 14		DEFB	$14
7642 37		DEFB	$37
7643 01		DEFB	$01
7644 13		DEFB	$13
7645 FF		DEFB	$FF
7646 00		DEFB	$00
7647 FF		DEFB	$FF
7648 00		DEFB	$00
7649 FF		DEFB	$FF
764A 00		DEFB	$00
764B FF		DEFB	$FF
764C 00		DEFB	$00
764D B8		DEFB	$B8
764E 38		DEFB	$38
764F 18		DEFB	$18
7650 68		DEFB	$68
7651 00		DEFB	$00
7652 0F		DEFB	$0F
7653 1C		DEFB	$1C
7654 04		DEFB	$04
7655 74		DEFB	$74
7656 15		DEFB	$15
7657 38		DEFB	$38
7658 05		DEFB	$05
7659 68		DEFB	$68
765A 0B		DEFB	$0B
765B 68		DEFB	$68
765C 05		DEFB	$05
765D 38		DEFB	$38
765E 03		DEFB	$03
765F 1C		DEFB	$1C
7660 04		DEFB	$04
7661 74		DEFB	$74
7662 0C		DEFB	$0C
7663 01		DEFB	$01
7664 0A		DEFB	$0A
7665 1C		DEFB	$1C
7666 05		DEFB	$05
7667 38		DEFB	$38
7668 00		DEFB	$00
7669 00		DEFB	$00
766A 21		DEFB	$21
766B 47		DEFB	$47
766C F6		DEFB	$F6
766D CB		DEFB	$CB
766E CE		DEFB	$CE
766F CD		DEFB	$CD
7670 35		DEFB	$35
7671 66		DEFB	$66
7672 3A		DEFB	$3A
7673 40		DEFB	$40
7674 F6		DEFB	$F6
7675 C3		DEFB	$C3
7676 64		DEFB	$64
7677 F9		DEFB	$F9
7678 00		DEFB	$00
7679 00		DEFB	$00
767A 00		DEFB	$00
767B 00		DEFB	$00
767C 00		DEFB	$00
767D 00		DEFB	$00
767E 00		DEFB	$00
767F 00		DEFB	$00
7680 00		DEFB	$00
7681 00		DEFB	$00
7682 00		DEFB	$00
7683 00		DEFB	$00
7684 02		DEFB	$02
7685 22		DEFB	$22
7686 20		DEFB	$20
7687 20		DEFB	$20
7688 05		DEFB	$05
7689 50		DEFB	$50
768A 00		DEFB	$00
768B 00		DEFB	$00
768C 05		DEFB	$05
768D 75		DEFB	$75
768E 57		DEFB	$57
768F 50		DEFB	$50
7690 02		DEFB	$02
7691 74		DEFB	$74
7692 71		DEFB	$71
7693 72		DEFB	$72
7694 04		DEFB	$04
7695 41		DEFB	$41
7696 24		DEFB	$24
7697 11		DEFB	$11
7698 02		DEFB	$02
7699 52		DEFB	$52
769A 6B		DEFB	$6B
769B F0		DEFB	$F0
769C 02		DEFB	$02
769D 40		DEFB	$40
769E 00		DEFB	$00
769F 00		DEFB	$00
76A0 02		DEFB	$02
76A1 44		DEFB	$44
76A2 44		DEFB	$44
76A3 20		DEFB	$20
76A4 04		DEFB	$04
76A5 22		DEFB	$22
76A6 22		DEFB	$22
76A7 40		DEFB	$40
76A8 00		DEFB	$00
76A9 52		DEFB	$52
76AA 72		DEFB	$72
76AB 50		DEFB	$50
76AC 00		DEFB	$00
76AD 22		DEFB	$22
76AE 72		DEFB	$72
76AF 20		DEFB	$20
76B0 00		DEFB	$00
76B1 00		DEFB	$00
76B2 02		DEFB	$02
76B3 24		DEFB	$24
76B4 00		DEFB	$00
76B5 00		DEFB	$00
76B6 70		DEFB	$70
76B7 00		DEFB	$00
76B8 00		DEFB	$00
76B9 00		DEFB	$00
76BA 06		DEFB	$06
76BB 60		DEFB	$60
76BC 01		DEFB	$01
76BD 12		DEFB	$12
76BE 24		DEFB	$24
76BF 40		DEFB	$40
76C0 07		DEFB	$07
76C1 55		DEFB	$55
76C2 55		DEFB	$55
76C3 70		DEFB	$70
76C4 02		DEFB	$02
76C5 62		DEFB	$62
76C6 22		DEFB	$22
76C7 70		DEFB	$70
76C8 02		DEFB	$02
76C9 51		DEFB	$51
76CA 24		DEFB	$24
76CB 70		DEFB	$70
76CC 06		DEFB	$06
76CD 16		DEFB	$16
76CE 11		DEFB	$11
76CF 60		DEFB	$60
76D0 01		DEFB	$01
76D1 35		DEFB	$35
76D2 57		DEFB	$57
76D3 10		DEFB	$10
76D4 07		DEFB	$07
76D5 46		DEFB	$46
76D6 11		DEFB	$11
76D7 60		DEFB	$60
76D8 03		DEFB	$03
76D9 46		DEFB	$46
76DA 55		DEFB	$55
76DB 20		DEFB	$20
76DC 07		DEFB	$07
76DD 12		DEFB	$12
76DE 24		DEFB	$24
76DF 40		DEFB	$40
76E0 07		DEFB	$07
76E1 52		DEFB	$52
76E2 55		DEFB	$55
76E3 70		DEFB	$70
76E4 02		DEFB	$02
76E5 55		DEFB	$55
76E6 31		DEFB	$31
76E7 60		DEFB	$60
76E8 00		DEFB	$00
76E9 02		DEFB	$02
76EA 00		DEFB	$00
76EB 20		DEFB	$20
76EC 00		DEFB	$00
76ED 02		DEFB	$02
76EE 02		DEFB	$02
76EF 24		DEFB	$24
76F0 00		DEFB	$00
76F1 12		DEFB	$12
76F2 42		DEFB	$42
76F3 10		DEFB	$10
76F4 00		DEFB	$00
76F5 07		DEFB	$07
76F6 07		DEFB	$07
76F7 00		DEFB	$00
76F8 00		DEFB	$00
76F9 42		DEFB	$42
76FA 12		DEFB	$12
76FB 40		DEFB	$40
76FC 02		DEFB	$02
76FD 51		DEFB	$51
76FE 20		DEFB	$20
76FF 20		DEFB	$20
7700 06		DEFB	$06
7701 BD		DEFB	$BD
7702 A8		DEFB	$A8
7703 70		DEFB	$70
7704 02		DEFB	$02
7705 55		DEFB	$55
7706 75		DEFB	$75
7707 50		DEFB	$50
7708 06		DEFB	$06
7709 56		DEFB	$56
770A 55		DEFB	$55
770B 60		DEFB	$60
770C 02		DEFB	$02
770D 54		DEFB	$54
770E 45		DEFB	$45
770F 20		DEFB	$20
7710 06		DEFB	$06
7711 55		DEFB	$55
7712 55		DEFB	$55
7713 60		DEFB	$60
7714 07		DEFB	$07
7715 46		DEFB	$46
7716 44		DEFB	$44
7717 70		DEFB	$70
7718 07		DEFB	$07
7719 47		DEFB	$47
771A 44		DEFB	$44
771B 40		DEFB	$40
771C 02		DEFB	$02
771D 54		DEFB	$54
771E 75		DEFB	$75
771F 20		DEFB	$20
7720 05		DEFB	$05
7721 57		DEFB	$57
7722 55		DEFB	$55
7723 50		DEFB	$50
7724 07		DEFB	$07
7725 22		DEFB	$22
7726 22		DEFB	$22
7727 70		DEFB	$70
7728 01		DEFB	$01
7729 11		DEFB	$11
772A 55		DEFB	$55
772B 20		DEFB	$20
772C 05		DEFB	$05
772D 56		DEFB	$56
772E 65		DEFB	$65
772F 50		DEFB	$50
7730 04		DEFB	$04
7731 44		DEFB	$44
7732 44		DEFB	$44
7733 70		DEFB	$70
7734 05		DEFB	$05
7735 77		DEFB	$77
7736 55		DEFB	$55
7737 50		DEFB	$50
7738 07		DEFB	$07
7739 55		DEFB	$55
773A 55		DEFB	$55
773B 50		DEFB	$50
773C 02		DEFB	$02
773D 55		DEFB	$55
773E 55		DEFB	$55
773F 20		DEFB	$20
7740 06		DEFB	$06
7741 55		DEFB	$55
7742 64		DEFB	$64
7743 40		DEFB	$40
7744 07		DEFB	$07
7745 55		DEFB	$55
7746 55		DEFB	$55
7747 71		DEFB	$71
7748 06		DEFB	$06
7749 55		DEFB	$55
774A 66		DEFB	$66
774B 50		DEFB	$50
774C 03		DEFB	$03
774D 42		DEFB	$42
774E 11		DEFB	$11
774F 60		DEFB	$60
7750 07		DEFB	$07
7751 22		DEFB	$22
7752 22		DEFB	$22
7753 20		DEFB	$20
7754 05		DEFB	$05
7755 55		DEFB	$55
7756 55		DEFB	$55
7757 70		DEFB	$70
7758 05		DEFB	$05
7759 55		DEFB	$55
775A 55		DEFB	$55
775B 20		DEFB	$20
775C 05		DEFB	$05
775D 55		DEFB	$55
775E 77		DEFB	$77
775F 50		DEFB	$50
7760 05		DEFB	$05
7761 52		DEFB	$52
7762 25		DEFB	$25
7763 50		DEFB	$50
7764 05		DEFB	$05
7765 55		DEFB	$55
7766 22		DEFB	$22
7767 20		DEFB	$20
7768 07		DEFB	$07
7769 12		DEFB	$12
776A 24		DEFB	$24
776B 70		DEFB	$70
776C 07		DEFB	$07
776D 44		DEFB	$44
776E 44		DEFB	$44
776F 70		DEFB	$70
7770 00		DEFB	$00
7771 46		DEFB	$46
7772 23		DEFB	$23
7773 10		DEFB	$10
7774 07		DEFB	$07
7775 11		DEFB	$11
7776 11		DEFB	$11
7777 70		DEFB	$70
7778 02		DEFB	$02
7779 72		DEFB	$72
777A 22		DEFB	$22
777B 20		DEFB	$20
777C 00		DEFB	$00
777D 00		DEFB	$00
777E 00		DEFB	$00
777F 0F		DEFB	$0F
7780 02		DEFB	$02
7781 54		DEFB	$54
7782 F4		DEFB	$F4
7783 F0		DEFB	$F0
7784 00		DEFB	$00
7785 61		DEFB	$61
7786 75		DEFB	$75
7787 70		DEFB	$70
7788 04		DEFB	$04
7789 46		DEFB	$46
778A 55		DEFB	$55
778B 60		DEFB	$60
778C 00		DEFB	$00
778D 34		DEFB	$34
778E 44		DEFB	$44
778F 30		DEFB	$30
7790 01		DEFB	$01
7791 13		DEFB	$13
7792 55		DEFB	$55
7793 30		DEFB	$30
7794 00		DEFB	$00
7795 25		DEFB	$25
7796 74		DEFB	$74
7797 30		DEFB	$30
7798 03		DEFB	$03
7799 46		DEFB	$46
779A 44		DEFB	$44
779B 40		DEFB	$40
779C 00		DEFB	$00
779D 35		DEFB	$35
779E 53		DEFB	$53
779F 16		DEFB	$16
77A0 04		DEFB	$04
77A1 46		DEFB	$46
77A2 55		DEFB	$55
77A3 50		DEFB	$50
77A4 02		DEFB	$02
77A5 06		DEFB	$06
77A6 22		DEFB	$22
77A7 70		DEFB	$70
77A8 01		DEFB	$01
77A9 01		DEFB	$01
77AA 11		DEFB	$11
77AB 52		DEFB	$52
77AC 04		DEFB	$04
77AD 56		DEFB	$56
77AE 65		DEFB	$65
77AF 50		DEFB	$50
77B0 06		DEFB	$06
77B1 22		DEFB	$22
77B2 22		DEFB	$22
77B3 70		DEFB	$70
77B4 00		DEFB	$00
77B5 57		DEFB	$57
77B6 55		DEFB	$55
77B7 50		DEFB	$50
77B8 00		DEFB	$00
77B9 65		DEFB	$65
77BA 55		DEFB	$55
77BB 50		DEFB	$50
77BC 00		DEFB	$00
77BD 25		DEFB	$25
77BE 55		DEFB	$55
77BF 20		DEFB	$20
77C0 00		DEFB	$00
77C1 65		DEFB	$65
77C2 56		DEFB	$56
77C3 44		DEFB	$44
77C4 00		DEFB	$00
77C5 35		DEFB	$35
77C6 53		DEFB	$53
77C7 11		DEFB	$11
77C8 00		DEFB	$00
77C9 34		DEFB	$34
77CA 44		DEFB	$44
77CB 40		DEFB	$40
77CC 00		DEFB	$00
77CD 34		DEFB	$34
77CE 21		DEFB	$21
77CF 60		DEFB	$60
77D0 04		DEFB	$04
77D1 64		DEFB	$64
77D2 44		DEFB	$44
77D3 20		DEFB	$20
77D4 00		DEFB	$00
77D5 55		DEFB	$55
77D6 55		DEFB	$55
77D7 30		DEFB	$30
77D8 00		DEFB	$00
77D9 55		DEFB	$55
77DA 52		DEFB	$52
77DB 20		DEFB	$20
77DC 00		DEFB	$00
77DD 55		DEFB	$55
77DE 77		DEFB	$77
77DF 50		DEFB	$50
77E0 00		DEFB	$00
77E1 55		DEFB	$55
77E2 25		DEFB	$25
77E3 50		DEFB	$50
77E4 00		DEFB	$00
77E5 55		DEFB	$55
77E6 53		DEFB	$53
77E7 16		DEFB	$16
77E8 00		DEFB	$00
77E9 71		DEFB	$71
77EA 24		DEFB	$24
77EB 70		DEFB	$70
77EC 03		DEFB	$03
77ED 24		DEFB	$24
77EE 22		DEFB	$22
77EF 30		DEFB	$30
77F0 02		DEFB	$02
77F1 22		DEFB	$22
77F2 22		DEFB	$22
77F3 20		DEFB	$20
77F4 06		DEFB	$06
77F5 21		DEFB	$21
77F6 22		DEFB	$22
77F7 60		DEFB	$60
77F8 05		DEFB	$05
77F9 A0		DEFB	$A0
77FA 00		DEFB	$00
77FB 00		DEFB	$00
77FC 07		DEFB	$07
77FD 8B		DEFB	$8B
77FE AB		DEFB	$AB
77FF 87		DEFB	$87